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

program asp;

var a1, b1, a2, b2: real;

begin

write ('Введите стороны первого прямоугольника через пробел ');

readln (a1, b1);

write ('Введите стороны второго прямоугольника через пробел ');

readln (a2, b2);

if a1*b1 > a2*b2 then writeln ('Площадь первого прямоугольника больше')

else if a1*b1 < a2*b2 then writeln ('Площадь второго прямоугольника больше')

else writeln ('Площади прямоугольников равны')

end.