... t[i,j] then begin setfillstyle(1,red); bar((i-1)*10+1,(j-1)*10+1,i*1 0-1 ,j*1 0-1 ); end else begin setfillstyle(1,blue); bar((i-1)*10+1,(j-1)*10+1,i*1 0-1 ,j*1 0-1 ); end; End; {========================} ... Number(i,j:integer):integer; Var n,k:integer; Begin n:=0; for k:=i-1 to i+1 do begin if t[k,j-1] then inc(n); if t[k,j+1] then inc(n) end; if t[i-1,j] then inc(n); if t[i+1,j] then inc(n); Number:=n End; ... sau tế bào cho trước ấy vẫn sống. - Nếu số tế bào sống lân cận với tế bào cho trước mà nhiều từ 4 trở lên thì đến thế hệ sau nó sẽ chết (chết vì quá đông). - Nếu có đúng 3 tế bào sống lân cận...