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

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

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

var a, b, c, d, count: integer;
begin
  readln(a, b, c, d) ;
  //тк циклы еще не прошли, то ифом
  count:=1;
  if (a mod 4 = 0) then
  begin
    writeln('Delitsa na 4 ', a);
    count:=count+1;
  end;
  if (b mod 4 = 0) then
  begin
    writeln('Delitsa na 4 ', b) ;
    count:=count+1;
  end;
  if (c mod 4 = 0) then
  begin
    writeln('Delitsa na 4 ', c) ;
    count := count + 1;
  end;
  if ((d mod 4 = 0) and (count < 4)) then
     writeln('Delitsa na 4 ', d) ;
  readln();
end.