Пользователь вводит 20 чисел. напишите программу,которая будет считать количество четных чисел. надо сделать в pascalabc . 8 класс.

Program n1;
var a,k,i: integer;
begin
for i:=1 to 20 do
begin
readln(a);
if a mod 2=0 then k:=k+1;
end;
writeln(k);
end.