Задача 2 Урок 10

Задача 2 Урок 10:

Пользователь вводит 4 целых числа, выведите на экран те из первых трех чисел, которые делятся нацело на 4-е число

var a,b,c,d,i: integer;
begin
  writeln('Vvedite a,b,c,d');
  readln(a,b,c,d);
  i:=0;
  if (a mod 4)=0 then
  begin
    write(a,' ');
    i:=i+1;
  end;
  if (b mod 4)=0 then
  begin
    write(b,' ');
    i:=i+1;
  end;
  if (c mod 4)=0 then
  begin
    write(c,' ');
    i:=i+1;
  end;
  if ((d mod 4)=0) and (i<>3) then
    write(d,' ');
  readln();
end.