вводится последовательность из N чисел. найти сколько в ней нулей

 var   a,i,n,k : integer;   begin  k := 0;  write ('n = ');  readln (n);     for i := 1 to n do    begin     read (a);      if a =0 then       k := k +1;    end;      writeln (k,' - кол-во нулей');          end.