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

program area;var a,b,c,d: real;beginwrite(\'Введите стороны первого прямоугольника через пробел: \');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.