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

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

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

Решение:

program Project1;
var a, b, x, f:integer;
begin
  writeln('Введите число a:');
  readln(a);
  writeln('Введите число b:');
  readln(b);
  writeln('Введите число x:');
  readln(x);
  writeln('Введите число f:');
  readln(f);

  if (a mod 4) = 0 then
    writeln(a, ' делиться ',' на 4');
  if (b mod 4) = 0 then
    writeln(b, ' делиться ',' на 4');
  if (x mod 4) = 0 then
    writeln(x, ' делиться ',' на 4');


  readln();
end.