.

§

!

1,3

1.36 1.3

1.36

+ 16

+ 16

25



+ 16

2 50CJ

, *. :

if 1!]=5 then go to else if 011]=61 then go to else go to ; : if " V 6]0\/

17]0\/ 1[6]0\/

[7]0 then go to ; for :=-2 step -2 until 1 do if HOMEPIn]==l V HOMEPn]=2 then

go to ; [6]:= 17]:=6;: = ;

( , . ,,

); : (5,7,2,8,6); :

[6]:=0 [7]:=0; : if

2]¥=0 V

[3]¥=..0 V 4]¥=0 V [2]&0 V 3]0 V {4]0 then go to ; for : = -2 step -2 until 1 do if HOMEPiIn]= 1 V H0MEPM==3 then go to ;

* , 50CJ. {. .)



[3]:=0 [4]:=6; : = ; ( , .,

); : (5,3,3,1,4); :

[3]:= 4]:=0; go to ; : if "~1 V 4EPHbIX[62]¥=0V [63]0\/ [62]0 V [63]0 then

go to ; for n:=-2 step -2 until 2 do

if HOMEP[n] = l V HOMEPi[n] = 2 then go to ; 62]:= 63]:=6; : = ; ( , , ., ); : (61,63,2,64,62); :

162]:= 163]:=0; : if " V 4EPHbIX[58]0V 1[59]0 V [60]0 V 158]0 V [59]0\/ 160}¥=0 then

go to ; for n:=-2 step -2 until 2 do if HOMEPlFn]=l V H0MEPM=3 then go to ; 59]-= [60]:=6; :=; ( , , ,, ); : (61,59,3,57,66); :

59]:= 160]:=0; :

.

procedure (1,2,0 ,1,2);

integer 1,2,0 ,1,2; begin 0[]: = 1; [+1]:==6;

0[+2]: = 1; +3]: = -2;

0+4]:= ; [+5];=4;

01[+6]:=1; [+7]:=2;

+8]: =-1; [+9]: = 1;





0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 [34] 35 36 37 38 39 40 41 42 43

0.0042