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

Задание 3 Урок 10.0:

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

program u10z3;
var a, b: integer;
begin
  writeln('Vvedite a, b:');
  readln(a, b);
  if ((a mod 4 = 0) AND (b mod 4 = 0) OR (a mod 4 = 0)) then
    writeln(a)
  else if (b mod 4 = 0) then
    writeln(b);
  readln();
end.

КОНСОЛЬ:

Vvedite a, b:
1 3 

Vvedite a, b:
4 7
4

Vvedite a, b:
5 32
32

Vvedite a, b:
8 16
8