pascal找规律填数游戏

var
a,f:array[1..10000] of longint;
procedure play;
var
i,j,k1,k2,t,n:longint;
begin
randomize;
j:=random(100); j:=j+10; k1:=random(10); inc(k1);
k2:=random(k1);
for i:=1 to k2 do
begin a[i]:=j; j:=j*k1; if j>2100000000 then break; end;
f[1]:=a[2]; a[2]:=-1; t:=1;
for i:=1 to k2 do
if random(10)=0 then
begin inc(t); f[t]:=a[i]; a[i]:=-1; end;
for i:=1 to k2 do
if a[i]<>-1 then write(a[i],' ') else write('_ ');
for i:=1 to t do
begin read(n);
if n<>f[i] then begin writeln('you lost!'); break; end;
end;
if i=t then writeln('you win!');
end;
procedure choose;
var n:longint;
begin
writeln('welcome!');
writeln('1 play');
writeln('2 explain');
writeln('3 exit');
readln(n);
if n=1 then play;
if n=2 then begin writeln('this is a number game,you can read a number in a string,and every line and column same then you win.'); choose; end;
if n=3 then halt;
end;
begin
choose;
end.

lz不啰嗦，直接发源码

有bug请盖楼