pascal的读入写法：
while not eof do begin readln(n,m);....... end;
会WA【用文件读入输出后会莫名其妙多出个0
要这么写：
readln(n,m); while not eof do begin ........ readln(n,m); end;