помогите написать программу на PascalABCNET
Определите, сколько среди данных n чисел нулей.
ВХОДНЫЕ ДАННЫЕ

Вводится одно число n — количество чисел, а затем n целых чисел.
ВЫХОДНЫЕ ДАННЫЕ

Выведите одно целое число — количество нулей в этой последовательности.

 var   i,n,a,k : integer;    begin  readln (n);  k := 0;   for i := 1 to n do    begin     readln (a);     if a = 0 then      k := k +1;    end;  writeln (k); end.