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

// 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-й')    else Writeln('Произведения 1-й и 2-й пар чисел равны')end.