Напишите программу , которая вычисляет площадь и периметр прямоугольника по двум его сторонам.

Var
    a, b: real;

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