помогите ПОЖАЛУЙСТА!!!
Дан одномерный массив А[N] подсчитать количество чётных значений элементов массива.

var a:array [1..100] of integer;i,k,n : integer;beginreadln(n);for i:=1 to n do readln(a[i]);k:=0;for i:=1 to n doif a[i] mod 2=0 then k:=k+1;writeln(k);end.