ответ держи
Program n_1;
var a, b, c: real;
begin
writeln ('вычисление площади прямоугольника');
write ('a, b');
read (a, b);
c:=a*b;
write ('c=', c)
end.
Объяснение:
