Определить, делится ли одно число на другое

Program xa;
var
 a,b,c:integer;
begin
 Writeln('BBedute 3 4ucla');
 Write('1-e chislo  ');
 readln(a);
 Write('2-e chislo  ');
 readln(b);
 Write('3-e chislo  ');
 readln(c);
 writeln;
 if ((a+b+c) div 3) mod c=0 then
  Writeln('DeLUTCia')
 else
  Writeln('He delutCia');
 readln
end.

Program xa;
var
 a,b,c,d:integer;
begin
 Writeln('BBedute 4 сhisla');
 Write('1-e chislo  ');
 readln(a);
 Write('2-e chislo  ');
 readln(b);
 Write('3-e chislo  ');
 readln(c);
 Write('4-e chislo  ');
 readln(d);
 writeln;
 if (a mod 2=0) and (b>0) and (c>0) then
  Writeln(a, ' ' ,b, ' ' ,c, ' ' ,d)
 else
  if a mod 2=0 then
   Writeln('Cymma chisel= ' ,a+b+c+d)
  else
   if (b>0) and (c>0) then
    Writeln('CpeDHee apufMeTU4eckoe= ' ,(a+b+c+d)/4 :8:4)
   else
    Writeln(-a, ' ' ,-b, ' ' ,-c, ' ' ,-d);
 readln
end.

program xa2;
uses crt;
var
 a: array [1..4] of integer;
 i: integer;
 sum,sr: real;
begin
 clrscr;
 write('Vvedite 4 proizvolnih chisla: ');
 for i:=1 to 4 do
  read(a[i]);
 writeln;
 if (a[1] mod 2=0) and (a[2]>0) and (a[3]>0) then
  for i:=1 to 4 do
   write(a[i],' ')
 else if (a[1] mod 2=0) then
  begin
   for i:=1 to 4 do
    sum:=sum+a[i];
   writeln(sum:6:2);
  end
 else if (a[2]>0) and (a[3]>0) then
  begin
   for i:=1 to 4 do
    sum:=sum+a[i];
   sr:=sum/4;
   writeln(sr:6:2);
  end
 else
  for i:=1 to 4 do
   write(a[i]*(-1),' ');
 readkey;
end.