Срочно 50 баллов даю
Решите с объяснением
Проверьте является ли частное от деления суммы четырех произвольных чисел, введенных с клавиатуры, на разность двух последних из них целым числом!!!

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.

// 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Нецелый результатОбъяснения:Первый (после begin) оператор объявляет массив из четырех вещественных элементов и заполняет его вводимыми с клавиатуры данными.Второй делает остальное: вычисляет результат, проверяет, целочисленный ли он и выводит соответствующее сообщение на монитор.