program area_of_rectangle;
vara, b, area: real;
begin// Ввод сторон прямоугольникаwrite('Введите значение стороны a: ');readln(a);
write('Введите значение стороны b: ');readln(b);
// Вычисление площади прямоугольникаarea := a * b;
// Вывод площадиwriteln('Площадь прямоугольника со сторонами ', a, ' и ', b, ' равна ', area);end.
program area_of_rectangle;
var
a, b, area: real;
begin
// Ввод сторон прямоугольника
write('Введите значение стороны a: ');
readln(a);
write('Введите значение стороны b: ');
readln(b);
// Вычисление площади прямоугольника
area := a * b;
// Вывод площади
writeln('Площадь прямоугольника со сторонами ', a, ' и ', b, ' равна ', area);
end.