program demsotu;

Var S:string;

i,d:byte;

Begin

write('Nhap vao xau:');

Readln(S);

S:=S+' ';

d:=0;

For i:=1 to length(S) do

if (S[i]<>' ') and (S[i+1]=' ') then inc(d);

write('Xau co so tu la:',d);

Readln

End.