Задачи Урок 10.0.

Задачи Урок 10.0. :

1) Пользователь вводит число, определите делится ли оно на 4

var a : integer;
begin
  writeln('введите число а');
  readln(a);
  
  if a mod 4 = 0 then
    writeln(a, ' делится на ',  4 )
  else
    writeln(a, ' не делится на ',  4);
  
  readln();
end.

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

var a, b, c, d, 
    i  //количество подошедших по условию цифр
    : integer;
begin
  
  i := 0;  //еще ни 1 не подходит(не проверяли)
  writeln('Введите 4 целых числа:');
  readln(a, b, c, d);
  
  writeln('ответ:');
  if (a mod 4 = 0) then
  begin
    writeln(a);
    i+=1;
  end;
  if (b mod 4 = 0) then
  begin
    writeln(b);
    i+=1;
  end;
  if (c mod 4 = 0) then
  begin
    writeln(c);
    i+=1;
  end;
  
  if (d mod 4 = 0) AND  (i < 3) then
    writeln(d);
  
  readln();
end.