Question

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

Answer 1

var
    a, b: real;

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