Программа запрашивает 4 числа умножает 1 и 2 3 и 4 и сравнивает полученные числа

Question

Программа запрашивает 4 числа умножает 1 и 2 3 и 4 и сравнивает полученные числа

Answer 1

// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var a,b,c,d:real;
  Write('Введите через пробел четыре числа: '); Read(a,b,c,d);
  var r:=a*b-c*d;
  if r>0 then Writeln('Произведение 1-й пары чисел больше, чем 2-й')
  else
    if r<0 then Writeln('Произведение 2-й пары чисел больше, чем 1-й')<br>    else Writeln('Произведения 1-й и 2-й пар чисел равны')
end.