Program PascalGuru;
 
function kolvo(s:string):integer;
var i,code,n,p:integer;
    cifra:string;
begin
n:=0;
 
 p:=pos(' ',s);
        repeat
        cifra:=copy(s,1,p-1);
         val(cifra,i,code);
         if i>0 then inc(n);
        delete(s,1,p);
        p:=pos(' ',s);
        until p=0;
         val(s,i,code);
         if i>0 then inc(n);
 
kolvo:=n;
end;
{-----------------------------}
var f,g:text;
    s:string;
 
begin
assign(f,'file.txt'); reset(f);
assign(g,'output.txt'); rewrite(g);
 
while not eof(f) do
      begin
      readln(f,s);
      writeln(g,kolvo(s));
      end;
 
writeln('Fail "output.txt" uspeshno zapisan');
 
 
close(f);
close(g);
readln;
end.