Написать программу в 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.