Даны стороны прямоугольника 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.