program bench6(input,output,testfile); var i,j,x,y:integer; testfile: text; begin writeln('start', chr(7)); x := 0; rewrite(testfile); y := 9; for i := 1 to 10 do for j := 1 to 1000 do writeln(testfile, '1234567890qwertyuiop'); close(testfile); writeln('finish', chr(7)); end.