ответ:var
a,b,P: real;
begin
Write(‘Введите стороны прямоугольника>>’);
Readln(a,b);
P:= 2*(a+b);
Write(‘Периметр прямоугольника равен:’);
end.
Объяснение: