< i > Link < /i >

case i of
2: if (y<24) then y := succ(y)
4: if (x> 1) then x := pred(x)
6: if (x<80) then x := succ(x)
8: if (y> 1) then y := pred(y)

function d(i,j:integer):integer;
begin
  if (a[i,j]) then
    begin
      a[i,j] := false;
      d := 1+d(i-1,j)+d(i,j-1)+d(i+1,j)+d(i,j+1)
    end
  else d:=0
end;

s:=0; d:=1; h:=1.005;
for i:=1 to 12*n do begin
  d:=d/h; s:=s+d
end;
m:=t/s;