Ответ:var

a, b, S, P: real;

begin

writeln('Введите стороны прямоугольника:');

{ Вводим размеры прямоугольника: }

readln(a, b);

S := a * b; { <-- Вычисляем площадь }

P := 2 * (a + b); { <-- Вычисляем периметр }

writeln('Результат:');

writeln('S = ', S:0:2);

writeln('P = ', P:0:2);

readln

end.

Объяснение:

===== PascalABC.NET =====

begin

 var (a,b) := ReadReal2('Введите через пробел длины сторон:');

 Write('Периметр прямоугольника ', 2 * (a + b), ', площадь ', a * b)

end.