program chuanhoa;
uses crt;
var st:string;
begin
clrscr;
write('Nhap xau: '); readln(st);
while st[1]=#32 do delete(st,1,1);
whle 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('Xau sau khi chuan hoa la: ',st);
readln
end.