Решение в паскале: даны 2 числа. если одно из чисел - чётно то, на экран выводится 1, если оба чётные то выводится 2, если ни одно из них не чётное выводится 0.

PascalABC.NET

begin

 var (a, b) := ReadInteger2('Введите два целых числа:');

 var (p, q) := (a mod 2 = 0, b mod 2 = 0);

 if p and q then

   Print(2)

 else if not (p or q) then

   Print(0)

 else Print(1)

end.