Program FNG;
Uses crt;
Var St: String;
    i: longint;
Begin
        Clrscr;
        Write('Nhap St: '); Readln(St);

        Writeln('Xau vua nhap la: ',St);
        Writeln('Do dai: ',length(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);

        Writeln('Xau chuan hoa: ',St);

        For i:=1 to length(St) do
                St[i]:=Upcase(St[i]);
        Writeln('Xau in hoa: ',St);

        For i:=1 to length(St) do
                If St[i]<>#32 then
                        St[i]:=Chr(Ord(St[i])+32);
        Writeln('Xau thuong: ',St);
        Readln
End.