program CountEvenNumbers;

var
num1, num2: Integer;
evenCount: Integer;

begin
evenCount := 0;

write('Введите первое число: ');
readln(num1);

write('Введите второе число: ');
readln(num2);

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

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

writeln('Количество четных чисел: ', evenCount);

end.