С клавиатуры вводятся 3 числа. Найти количество и сумму четных чисел среди них. Если среди введенных четных нет, то вывести соответствующее сообщение.

  Program Num3; Uses Crt; var a,b,c,n,s:integer;   begin      clrscr;      write('Введите 3 числа: ');      readln(a,b,c);      n:=0;s:=0;      if (a mod 2)=0 then               begin                  n:=n+1;                  s:=s+a;              end;   if (b mod 2)=0 then               begin                  n:=n+1;                  s:=s+b;              end;      if (c mod 2)=0 then               begin                  n:=n+1;                  s:=s+c;              end;   if (n=0) then writeln('Нету чётных чисел вообще !! ')           else  writeln('Количество чётных чисел:',n,'Их сумма: ',s);         readkey;   end.