Program FNG;
Uses crt;
Var St: String;
i: longint;
Begin
Clrscr;
Write('Nhap St: '); Readln(St);
For i:=1 to length(St) do
St[i]:=Upcase(St[i]);
Writeln('Cau b: ',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);
Write('Cau c: ',St);
Readln
End.