Турбо Паскаль.ПОМОГИТЕ ЛЮДИ ДОБРЫЕ!!!Даны 3 числа, подсчитать ...

Сергей

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.