program p1048; var st,s:ansistring; i,j,k,t:longint; begin readln(t); for i:=1 to t do begin readln(st); k:=pos(' ',st); while k<>0 do begin s:=copy(st,1,k-1); for j:=length(s) downto 1 do write(s[j]); write(' '); delete(st,1,k); k:=pos(' ',st); end; for j:=length(st) downto 1 do write(st[j]); writeln; end; end. /************************************************************** Problem: 2014 User: admin Language: Pascal Result: Wrong Answer ****************************************************************/