std.nums.testlib: nums.dpr
uses
SysUtils, testlib;
var
i, a, o: Integer;
begin
i := 1;
while not ans.SeekEof do begin
a := ans.ReadInteger;
o := ouf.ReadInteger;
if a <> o then
Quit(_WA, Format('%d <> %d @%d', [a, o, i]));
Inc(i);
end;
if not ouf.SeekEof then
Quit(_PE, 'Extra characters in output');
Quit(_OK, '');
end.