Решение задачи №2 из главы 10.0

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

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

Решение:

var a, b, c, d : integer;
begin
  writeln('Enter four numbers:');
  readln(a, b, c, d);

  if (a mod 4 = 0) then
    write('a = ', a, ' ');
  if (b mod 4 = 0) then
    write('b = ', b, ' ');
  if (c mod 4 = 0) then
    write('c = ', c, ' ');
  if (d mod 4 = 0) AND ((a mod 4 <> 0) OR (b mod 4 <> 0) OR (c mod 4 <> 0)) then
    write('d = ', d);                              
  
  readln();
end.