Написать программу в Pascal (полностью). С клавиатуры вводятся стороны двух...

Question

Написать программу в Pascal (полностью). С клавиатуры вводятся стороны двух прямоугольников. Определить площадь какого прямоугольника больше.

Answer 1

Var
a, b, c, d: integer;
begin
writeln('Введите стороны 1 прямоугольника: ');
readln(a, b);
writeln('Введите стороны 2 прямоугольника: ');
readln(c, d);
if a*b > c*d then
writeln('Площадь 1-го больше');
if a*b = c*d then
writeln('Площади равны');
if a*b < c*d then
writeln('Площадь 2-го больше');
end.