Program hotrotinhoc;

var st,s: string;

i,n: integer;

begin

write('Nhap xau : '); readln(st);

writeln('Xau vua nhap la : ',st);

 s:=st;

writeln('Do dai cua xau la : ',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 sau khi xoa cac ky tu trang : ',st);

s:=upcase(s);

writeln('Xau sau khi bien doi thanh xau in hoa : ',s);

s:=lowercase(s);

write('Xau sau khi bien doi thanh xau in thuong : ',s);

readln

end.