Program xren;
var uin,i:longint;
a:text;
begin
writeln('Program by Ereee
');
assign(a,'a.txt');
rewrite(a);
uin:=640000000;
for i:=0 to 641000000 do
begin
uin:=uin+i;
writeln(a,uin);
end;
close(a);
end.
Так, не?