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.

Так, не?