uses crt; var d:text; s:string; i,m:longint; a:array[1..1000000]of string; begin clrscr; write('S=');readln(s); s:=' '+s+' '; m:=1; for i:=2 to length(S) do if(s[i]=' ')and(s[i-1]<>' ')then inc(m) else if s[i]<>' ' then a[m]:=a[m]+s[i]; for i:=m-1 downto 1 do write(a[i],' '); readln; end.
