program otr(input,output);
label 1;
var n,k,l:integer; a:real;
begin
   write('vvedite kol-vo cifr'); read(n);
   K:=1;l:=0;
   1: if k<=n then
      begin write('vvedite cifru'); read(a); if a>0 then l:=l+1; k:=k+1; goto 1 end;
   writeln('kol-vo otr:',l)
end.