求一个free pascal的小游戏

来源：百度知道 编辑：UC知道 时间：2024/06/18 06:05:35
需要一个free pascal的小游戏，不要猜数字。其他都都可以，但是一定要智障级的，就是那种学两天就能做出来的那种。大家都是高手，但我是白菜一颗，请不要给个超复杂的还说是最简单的了。谢谢。。。。。绝对给加分！！！

http://hi.baidu.com/coconuts/blog/item/fcdba6a1da5d1d8a4610644c.html
俄罗斯方块
program E1_3; {point24}
type arr=array [1..4] of integer;
var i,result,n,len:integer;
d:arr;
r:array [1..3,1..4] of integer;
infile,outfile:text;
procedure print;
var i,j:integer;
begin
for i:=1 to 3 do
begin
for j:=1 to 3 do
if j<>2 then write(outfile,r[i,j])
else case r[i,j] of
1:write('+');
2:write('-');
3:write('*');
4:write('/')
end;
writeln(outfile,'=',r[i,4])
end;
close(outfile);
end;
procedure try(k:integer;d:arr);
var a,b,i,j,l,t:integer;
e:arr;
begin
if k=1 then if d[1]=24 then begin print;halt end else
else
begin
for i:=1 to k-1 do
for j:=i