Вводится последовательность из 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.