program CountEvenNumbers;

var
num1, num2: Integer;
evenCount: Integer;

begin
evenCount := 0;

write${}^{\prime }Введитепервоечисло{:}^{\prime }$;
readln$num1$;

write${}^{\prime }Введитевтороечисло{:}^{\prime }$;
readln$num2$;

if num1 mod 2 = 0 then
evenCount := evenCount + 1;

if num2 mod 2 = 0 then
evenCount := evenCount + 1;

writeln${}^{\prime }Количествочетныхчисел{:}^{\prime },evenCount$;

end.