Код:
var
pole: array [0..8] of Byte;
function CheckEnd: Boolean;
begin
Result:=(pole[0]=2) and (pole[1]=2) and (pole[2]=2) and (pole[3]=2)
and (pole[4]=0) and
(pole[5]=1) and (pole[6]=1) and (pole[7]=1) and (pole[8]=1);
end;
initialization
pole[0]:=1;
pole[1]:=1;
pole[2]:=1;
pole[3]:=1;
pole[4]:=0;
pole[5]:=2;
pole[6]:=2;
pole[7]:=2;
pole[8]:=2;
__________________
Пишу программы за еду.
__________________
|