program hama; uses crt; var s: string; i: integer; begin clrscr; write('Nhap xau S: '); readln(s); for i:= length(s) downto 1 do if (s[i]=#32) and (s[i+1]=#32) then delete(s,i,1); if s[1]=#32 then delete(s,1,1); for i:=1 to length(s) do if s[i]<>#32 then write(s[i]) else writeln; readln end.
uses crt; var i:longint; s,a:string; begin clrscr; write('Nhap vao mot xau ki tu: ');readln(s); s:=' '+s+' '; for i:=2 to length(s) Do if (s[i]=' ')and(s[i-1]<>' ') then begin writeln(a); a:=''; end else if s[i]<>' ' then a:=a+s[i]; readln end.
