本題測試資料有誤，原題說明輸入為 N 行，但測試資料中最後一行並無換行符號，不成為一個完整的行，從而導致 RE 等狀況發生。

目前已修正 rejudge。 

var w,q:integer; e,r,t,max,min:longint;   x:array[1..100] of longint;

function fp(a,b:longint):longint;
var c:longint;
begin
repeat
c:=a mod b;
a:=b;
b:=c;
until c=0;
exit(a);
end;

begin
readln(q);
for w:=1 to q do
begin
while not eoln do
begin
inc(e);
read(x[e]);
end;
if w<q then readln;

for r:=1 to e-1 do
for t:=r+1 to e  do
if max<fp(x[r],x[t]) then max:=fp(x[r],x[t]);
writeln(max);
max:=0;
e:=0;
end;
end.

還是錯在RE上