код на паскале. Единственное НО: роверка подряд. program keygen;
var f:text;
a:longint;
buf:longint;
i:longint;
begin
assign (f,'output.txt');
rewrite (f);
writeln ('Type the first 3 numbers (and press Enter after every number)');
write ('#1');
readln (buf);
a:=buf*10000000;
write ('#2');
readln (buf);
a:=buf*1000000;
write ('#3');
readln (buf);
a:=buf*100000;
buf:=99999;
for i:=a to a+buf do
writeln (f,i);
close (f);
end.