Даны две прямоугольника со сторонами a,b и с,d соответственно. Определить на

program area;
var a,b,c,d: real;
begin
write(Введите стороны первого прямоугольника через пробел: );
Readln(a,b);write(S = , a*b);
writeln();
write(Введите стороны второго прямоугольника через пробел: );
Readln(c,d); write(S = , c*d);
writeln();
if a*b gt; c*d then writeln(1-ый прямоугольник больше второго на , a*b - c*d, кв. ед.);
if c*d gt; a*b then writeln(1-ый прямоугольник меньше второго на , c*d - a*b, кв. ед.);
if c*d = a*b then writeln(1-ый прямоугольник равен второму.)
end.