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.
