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

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.