此题第五个数据是咋样的？有没有问题，有数据的拜托发一下，谢谢！！

var fn,fm:array[1..18511] of longint;

i,j,n,m,max,max1:longint;

number,number1,an,an1,bn,bn1,maxn,max1m:extended;

begin

readln(n,m);

if (n=0) and (m=0) then begin write('can');exit;end;

if (n=0) then begin write('can',chr(39),'t');exit;end else if m=0 then begin write('can'); exit;end;

for i:=1 to n do read(fn[i]);readln;

for i:=1 to m do read(fm[i]);max:=0;max1:=0;

for i:=1 to n do max:=max+fn[i];

for i:=1 to m do max1:=max1+fm[i];

maxn:=max/n;max1m:=max1/m;

for i:=1 to n do number:=number+sqr(fn[i]-maxn);

for i:=1 to m do number1:=number1+sqr(fm[i]-max1m);

an:=max/n;an1:=max1/m;

bn:=number/n;bn1:=number1/m;

if (n>=m) and (an>=an1) and (bn<=bn1) then write('can')

else write('can',chr(39),'t');

end.

我的代码有啥错误，为什么60分，顶