var f1,f2:text;
st,s:string;
dem:byte;
const fi='vao.txt';
fo='dulieu.txt';
begin
assign(f1,fi);reset(f1);
assign(f2,fo);rewrite(f2);
readln(f1,st);
st:=st+' ';
while pos(' ',st)<>0 do
begin
s:=copy(st,1,pos(' ',st));
if s<>' ' then inc(dem);
delete(st,1,pos(' ',st));
end;
writeln(f2,dem);
close(f1);close(f2);
end.