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

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

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

var a, b, c, d, sum: integer;
begin
  writeln('vvedite chisla A B C D: ');
  readln(a, b, c, d);
  writeln();
  sum := 0;
  if (a mod 4) = 0 then
    begin
      sum :=sum + 1;
      writeln(a);
    end;
  if (b mod 4) = 0 then
    begin
      sum :=sum + 1;
      writeln(b);
    end;
  if (c mod 4) = 0 then
    begin
      sum :=sum + 1;
      writeln(c);
    end;
  if (a mod 4) = 0 then
    begin
      sum :=sum + 1;
      if (sum <= 3) then
      writeln(d);
    end;
  readln();
end.