var s:ansistring; procedure xuly; begin write('Nhap vao xau: ');readln(s); while pos(#32,s)>0 do delete(s,pos(#32,s),1); if s[1]=#32 then delete(s,1,1); if s[length(s)]=#32 then delete(s, length(s),1); write('xau sau khi xu ly: ',s); readln end; begin xuly; end.
uses crt; var s:string; begin clrscr; readln(s); while s[1]=' ' do delete(s,1,1); while s[length(s)]=' ' do delete(s,length(s),1); while pos(' ',s)<>0 do delete(s,pos(' ',s),1); writeln(s); readln; end.
