Program FNG;
Uses crt;
Var S: String;
i,d: longint;
Begin
Clrscr;
Write('Nhap S: '); Readln(S);
d:=0;
For i:=1 to length(S) do
If S[i]=#32 then
inc(d);
Writeln('Co ',d,' dau cach');
For i:=1 to length(S) do
While S[i]=#32 do Delete(S,i,1);
Write(S);
Readln
End.