Ребята, помогите с задачей! Надо ввести ее в pascal

Дан ряд чисел. Количество задается пользователем. Найти кол-во четных чисел оканчивающих на 0 или 2

9 класс

var n, i, a, k:integer;

begin

write ('Введите количество чисел: ') ;

readln (n) ;

writeln;

for i: = 1 to n do

begin

write ('Введите число: ') ;

readln (a) ;

if ((a mod 2 = 0) and (a mod 10 = 0)) or ((a mod 2 = 0) and (a mod 10 = 2)) then k:=k+1

end;

writeln;

writeln ('Кол-во четных чисел оканчивающих на 0 или 2: ', k) ;

end.