Даны стороны прямоугольника a и b.Найти его площадь S=a*be периметр P=2 (a+b)

var
    a, b: real;

begin
    readln(a, b);
    writeln('P = ', 2 * (a + b), ' S = ', a * b);
end.