(паскаль) Требуется составить программу нахождения количества чисел кратных двум.
Любая последовательность.
Помогите пожалуйста!

var a,k:integer;beginassign (input, 'input.txt'); reset (input);assign (output, 'output.txt'); rewrite (output);k:=0;while (not Eof(input)) dobegin readln(a); if (a mod 2 =0) then  k:=k+1;end;writeln(k);end.