var s:string; i:longint; begin write('Nhap vao xau: ');readln(s); while s[1] = #32 do delete(s,1,1); while s[length(s)] = #32 do delete(s,length(s),1); i := 1; while i <= length(s) do if (s[i] = #32) and (s[i+1] = #32) then delete(s,i,1) else i := i + 1; writeln('Xau sau khi da chuyen hoa: ',s); readln; end.
program bai_giai; uses crt; var s:string; begin clrscr; write('Nhap xau: '); readln(s); while pos(#32#32,s)<>0 do delete(s,pos(#32#32,s),1); if s[1]=#32 then delete(s,1,1); if s[length(s)]=#32 then delete(s,length(s),1); write(s); readln; end.
