求一个free pascal智障级游戏答:i,j,m,n:integer;ma:array[1..10,1..10]of integer;hp,mp,money,ql,dengji,fy,atc,mc,hpmax,mpmax,zhiye,jy,mcp:integer;procedure map;begin randomize;m:=random(10);n:=random(10);writeln('***地图***');for i:=1 to 10 do begin for j:=1 to 10 do begin if (i=m)...