Урок №10 Задание 2

Урок №10 Задание 2

Пользователь вводит 4 целых числа, выведите на экран не более трех из этих чисел, которые делятся нацело на 4 (т.е. нужно вывести те числа, которые делятся на 4, но не более трех штук).

program Pr_10_2;

var a,b,c,d,i:integer;

begin
  i:=0;
  writeln('Введите четыре числа:');
  readln(a,b,c,d);
  writeln('Числа которые делятся на 4: ');
  if (a mod 4 = 0) and (i<=2) then
  begin
    i:=i+1;
    writeln('A=',a);
  end;
      if (b mod 4 = 0) and (i<=2) then
       begin
        i:=i+1;
         writeln('B=',b);
       end;
            if (c mod 4 = 0) and (i<=2) then
             begin
              i:=i+1;
               writeln('C=',c);
             end;
               if (d mod 4 = 0) and (i<=2) then
                begin
                 i:=i+1;
                  writeln('D=',d);
                end;
readln();
end.     

Консоль:

Введите четыре числа:
4
4
4
4
Числа которые делятся на 4:
A=4
B=4
C=4