Вводится число N, а затем N чисел. Подсчитайте, сколько среди данных N чисел нулей. Измените что надо сайт не пропускает.

var i,n,t,k:Inteer; 
begin 
write('n:=');readln(n); 
for i:=1 to n do begin 
write(i,'-> ');readln(t); 
if t=0 then inc(k); 
end; 
writeln(k); 
end.