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.