Напишите программу , которая вычисляет площадь и периметр прямоугольника по двум его сторонам.
Var a, b: real; begin readln(a, b); writeln('S=', a * b); writeln('P=', 2 * (a + b)); end.