[M.A.D.M.A.N.]

Код:

var i:integer;
f:textfile;
begin
assignfilw(f,'c:\123.txt');
rewrite(f);
for i:=0 to 999999 do
  writeln(f,i:6);
closefile(f);
end;