Program NN;
Uses crt;
Var St: String;
i,d: longint;
Begin
Clrscr;
Write('Nhap St: '); Readln(St);
While St[1]=#32 do Delete(St,1,1);
While St[length(St)]=#32 do Delete(St,length(St),1);
While Pos(#32#32,St)<>0 do Delete(St,Pos(#32#32,St),1);
d:=1;
For i:=1 to length(St) do
If St[i]=#32 then inc(d);
Writeln(d);
For i:=1 to length(St) do
If St[i]<>#32 then Write(St[i])
Else Writeln;
Readln
End.