uses crt;
var st:string;
f1,f2:text;
d:byte;
begin
clrcsr;
assign(f1,'vao.txt');reset(f1);
assign(f2,'dulieu.txt');rewrite(f2);
readln(f1,st);
st:=st+' ';
while pos(' ',st)<>0 do
begin
inc(d);
delete(st,1,pos(' ',st));
end;
writeln(f2,d);
close(f1);close(f2);
end.