Посчитать количество парных чисел из 21 что вводит пользователь — Pascal(Паскаль)

var
k,a,i:integer;
begin

k:=0;
for i:=1 to 21 do
 begin
  readln(a);
  if a mod 2=0 then k:=k+1;
 end;
write('Количество четных чисел=',k);
end.