Ответ:
var a, b, s, p: real;
begin
write(‘Чему равны стороны прямоугольника: ‘);
readln(a,b);
p:=2*(a+b);
s:=a*b;
writeln(‘Периметр прямоугольника: ‘, p);
write(‘Площадь прямоугольника: ‘, s)
end.
Результат работы:
Чему равны стороны прямоугольника: 2 5
Периметр прямоугольника: 14
Площадь прямоугольника: 10