С! надо ввести ее в 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.