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

program asp;

var a1,b1,a2,b2: real;

begin

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

readln(a1,b1);

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

readln(a2,b2);

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

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

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

end.