Безотлагательно 50 баллов даюРешите с объяснениемПроверьте является ли частное от разделенья

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

begin
  var a:=ReadArrReal('Введите 4 числа:',4);
  if Frac(a.Sum/(a[3]-a[2]))=0 then Writeln('Целый результат')
  else Writeln('Нецелый итог')
end.

Примеры
Введите 4 числа: 7.2 1.8 25.5 5.5
Целый итог

Введите 4 числа: 36 18.6 12 5
Нецелый итог

Изъясненья:
1-ый (после begin) оператор объявляет массив из 4 вещественных частей и наполняет его вводимыми с клавиатуры данными.
2-ой делает остальное: вычисляет итог, инспектирует, целочисленный ли он и выводит подходящее известие на монитор.

program zadacha;

var

x1,x2,x3,x4,sum,raz,chas:real;

begin

writeln('vvedite 4 chisla');

readln(x1,x2,x3,x4);

sum:=x1+x2+x3+x4;

raz:=x3-x4;

chas:=sum/raz;

writeln('itogi: ',chas);

if int(chas) =chas then writeln('celoe chislo')

else writeln('ne celoe chislo');

end.