даны два реальных числа x y определить что больше сумма либо

PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018

Внимание! Если программка не работает, обновите версию!

begin

 var (a, b) := ReadReal2;

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

 if d lt; 0 then Println('Творенье больше суммы')

 else

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

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

end.