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

Братан, спасибо

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