program CalculateRectangleArea;
varside1, side2, area: real;
begin// Вводим значения сторон прямоугольникаwriteln('Введите значение первой стороны прямоугольника:');readln(side1);
writeln('Введите значение второй стороны прямоугольника:');readln(side2);
// Расчет площади прямоугольникаarea := side1 * side2;
// Выводим результатwriteln('Площадь прямоугольника с заданными сторонами ', side1:0:2, ' и ', side2:0:2, ' равна ', area:0:2);
end.
program CalculateRectangleArea;
var
side1, side2, area: real;
begin
// Вводим значения сторон прямоугольника
writeln('Введите значение первой стороны прямоугольника:');
readln(side1);
writeln('Введите значение второй стороны прямоугольника:');
readln(side2);
// Расчет площади прямоугольника
area := side1 * side2;
// Выводим результат
writeln('Площадь прямоугольника с заданными сторонами ', side1:0:2, ' и ', side2:0:2, ' равна ', area:0:2);
end.