Ввести n чисел вывести количество чётных.(Паскаль)

Program n1;var a,i,n,k: integer;beginreadln(n);k:=0;for i:=1 to n dobeginreadln(a);if a mod 2=0 then k:=k+1;end;write(k);end.