var a,b,c,nchet,nnechet: integer;

begin

  nchet:=0;

  nnechet:=0;

  writeln('Введите 3 числа');

  readln(a,b,c);

  if a mod 2=0 then nchet:=nchet+1 else nnechet:=nnechet+1;

  if b mod 2=0 then nchet:=nchet+1 else nnechet:=nnechet+1;

  if c mod 2=0 then nchet:=nchet+1 else nnechet:=nnechet+1;

  writeln('Количество четных чисел равно ',nchet,', количетсво нечетных равно ',nnechet);

end.

program av;

var a,b,c,d,e:integer;

begin

writeln('введите числа');

readln(a,b,c) ;

d:=0 ;

if  a mod 2 = 0

then d:=d+1;

if  b mod 2 = 0

then d:=d+1;

if  c mod 2 = 0

then d:=d+1;

 e:=3-d

writeln(d,'количество четных') ;

 writeln(e,'количество не четных') ;

end.