Подсчитать количество четных чисел среди чисел a,b,c. написать программу в pascal.

Var
k,a,b,c:Integer;
Begin
 k:=0;
 Read(a,b,c);
  if (a mod 2 = 0) then k:=k+1;
  if (b mod 2 = 0) then k:=k+1;
  if (c mod 2 = 0) then k:=k+1;
Writeln(k);
end.