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

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

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

var a, b, c, d: integer;
begin
  writeln('Введите четыре числа:');
  readln(a, b, c, d); // считываем
  writeln();
  if (a mod 4 = 0) then // проверка первого числа
     write(a, ' ');     // выводим, если делится без остатка на 4
  if (b mod 4 = 0) then // проверка второго числа
     write (b, ' ' );   // выводим, если делится без остатка на 4
  if (c mod 4 = 0) then // проверка третьего числа
     write (c, ' ' );   // выводим, если делится без остатка на 4
  if (d mod 4 = 0) and ((a mod 4 <> 0) or (b mod 4 <> 0) or (c mod 4 <> 0)) then //четвертое число выводим на экран только если оно делится без остатка на 4  и хотя бы одно из предыдущих чисел не делится на 4 без остатка
     write (d, ' ' );
  readln ();
end. 

Вывод в консоли:

Введите четыре числа:
44
2
12
5
44 12