Даны две прямоугольника со сторонами 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 > c*d then writeln ('Первый прямоугольник больше второго на ', a*b - c*d, ' кв. ед.');

if c*d > a*b then writeln ('Первый прямоугольник меньше второго на ', c*d - a*b, ' кв. ед.');

if c*d = a*b then writeln ('Первый прямоугольник равен второму.')

end.