Даны два действительных числа x y определить что больше сумма или произведение этих чисел. запишите программу

begin

 var (a, b) := ReadReal2;

 var d := a + b - a * b;

 if d < 0 then Println('Произведение больше суммы')

 else

 if d = 0 then Println('Произведение равно сумме')

 else Println('Сумма больше произведения')

end.