Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.