pascal zju1151

var s,st:string;
i,j,k,n,a,b:longint;
begin
readln(a);
for b:=1 to a do
begin
if (b<>1) then
writeln;
readln(n);
for i:=1 to n do
begin
st:=' ';
readln(s);
k:=length(s);
for j:=1 to k do
begin
if s[j]<>' ' then st:=s[j]+st
else
begin
write(st);
st:=' ';
end;
end;
k:=length(st);
delete(st,k,1);
writeln(st);
end;
end;
end.
用GPC才能AC,用FPC超时(具体原因不知)