program number1;
var a,b,k: integer;
Begin
writeln('Введите 1-ое число');
readln(a);
writeln('Введите 2-ое число');
readln(b);
if a mod 2=0 then k:=k+1;
if b mod 2=0 then k:=k+1;
writeln('Чётных чисел: ',k);
End.
program number1;
var a,b,k: integer;
Begin
writeln('Введите 1-ое число');
readln(a);
writeln('Введите 2-ое число');
readln(b);
if a mod 2=0 then k:=k+1;
if b mod 2=0 then k:=k+1;
writeln('Чётных чисел: ',k);
End.