цКЮБМЮЪ оПНЛШЬКЕММЮЪ ЮБРНЛЮРХЙЮ.

пнйхпнбйю: CM днонкмемхе 2:; псаеф:=Я end нагнп унднб; procedure бшонкмемхе ундю (П.дняйю ябнхудняйю всфху,. онкъ ябнху,онкъ всфху,опнднкфемхе); integer П; label опнднкфемхе;

integer array дняйю ябнху.дняйю всфху,онкъ ябнху, онкъ всфху; begin integer нр.мю; go to start;

мегюйнммши унд: спнбемэ: =сп0бемэ-1; П: = П+1; start: нр: = яохяныП];мю:=яохя0й[П-1-1]; if мю>0 then begin

epl:

if q(yPOBEHb]=-1 then go to aal; aa2: дняйю ябнхунр]:=0;

ЮЮг: дняйю всфхучр]: =Я[спнбемэ];

ЮЮ4: Я1сп0бемэ}:=дняйю всфху[мю];

ЮЮ5: дняйю всфху[мю]:=0;

ЮЮА: онкъ яб0ху[м0леп1сп0бемэ]]: = мю;

aal: if abs(q[yPOBEHb]) = 1 д (мю>5АС мю<9) then

begin П: = П-1; qyPOBEHb]:=-1; дняйю яб0ху1мю]:= if дняйю ябнху[мю]=0 then

5 else дняйю ябнху[мю]-1; if дняйю яб0ху[мю]=2 then begin П: = П+1; q[yPOBEHb]: = 1 end end else

дняйю ябнху[мю]:=abs (qiyPOBEHb]);

ЕПг:

спнбемэ: =yPOBEHb+l; мю:=псаеф ундныспнбемэ]: = псаеф у0днб[сп0бемэ-1]; гюйнммши кх унд: нагнп унднб (онкъ всфху,дняйю всфху, дняйю ябнху.псаеф унднб:[спнбемэ], мегюйнммши унд); мнлеп[спнбемэ]: = яохянйцмю]; q[yPOBEHb]:=яохя0йью+1]; напюрмн й[сп0бемэ]:=яохя0й[мю+2] end else begin

дняйю яб0ху[-мю]: = abs(qfyPOBEHb]); дняйю ябнху{нр]:=0;

ЕП4 ээг ээ4

дняйю всфху[0р]:=Я1сп0бемэ]; Яспнбемэ]:=0;

онкъ яб0ху[м0леп1сп0бемэ]]:=-мю: HOMEPfyPOBEHb]:=яохя0й[П+2]; q[yPOBEHb]:=яохяныП+3];

напюрмн ысп0бемэ]:=яохя0й[П+4]; П: = П+3; go to опнднкфемхе end



end бшонкмемхе ундю; procedure бнгбпюр ундю(нрдняйю ябнхудняйю всфху, онкъ ябнху); integer нр;

Integer array дняйю ябнху,дняйю всфху.онкъ ябнху; begin дняйю ябнху[напюрмн K[yPOBEHb]]: = abs(q[yPOBEHb]); дняйю ябнху(нр]: = 0; ЕП4: дняйю всфху{0р]:=Я1сп0бемэ]; Я(спнбемэ]:=0;

онкъ яб0ху[м0леп1сп0бемэ]]: = напюрмн й[спнбемэ] end бнгбпюр ундю; ббнд рюакхж:

!ОПХ1(рюакхжю йнмъ.рюакхжю йнпнкъ, рюакхжю кюдэх, рюакхжю якнмю,рюакхжю ао,рюакхжю во); нвхярйю днянй:

for i: = l step 1 until 65 do

дняйю аекшух:=дняйю 4EPHbIX[i]:=0; for {:= 1 step 1 until 5 do c[i]: = 0; ббнд аекшу тхцсп:

input (n); онкъ аекшу0]:=О; for i: = l step 1 until n do begin input (j,k);

дняйю аекшу[Й]:=]; онкъ аекшу{1]:=Й end i;

«бнд вепмшу тхцсп:

input(О); онкъ вепмэын]: = О; - ∙∙"

for i: = l step 1 until n do begin input (j,k); ∙

дняйю 4EPHbIX{k]:=j; онкъ 4EPHblX[i]:=k end i;

outputCT, хяундмюъ онгхжхъ", /); оевюрэ онгхжхх; «ювюкн: Я[1]: = 0; спнбемэ: == псаеф у0д0б1]: = 1;

нагнп унднб (онкъ аекшу,дняйю аекшу.дняйю вепмшу,

псаеф УНДНБ; 1],0ьхайю); м0леп{сп0бемэ]:=яохя0й[1]; Д[сп0бемэ]:=яохя0й[2]; for а1:=3 step 1 until псаеф унднбы do begin бнглнфем оюр: = true; бшонкмемхе ундю (а I,дняйю аекшу,дняйю вепмшу.

онкъ аекшу,онкъ вепмшу,а1 опнднкфемхе); for 41 : = псаеф у0д0б[1]+2 step 1 until псаеф у0д0б[2] do begin

бшонкмемхе у0дю(в1,д0яйю вепмшу,д0яйю аекшу,

онкъ вепмшу,онкъ аекшу,в1 опнднкфемхе); for а2: = псаеф унднб1ц2]+2 step 1 until .

псаеф у0д0б[3] do begin бнглнфем nAT:=false; бшонкмемхе у0дю(а2,д0яйю аекшу, дняйю вепмшу,онкъ аекшу,онкъ вепмшу, а2 опнднкфемхе); ЕЯРЭ КХ ьюу вепмшл:О: = псаеф у0д0б4];

нагнп унднб (онкъ аекшу,д0яйю аекшу,д0яйю вепмшу,О,ьюу вепмшл);



go to а2 опнднкфемхе; ьюу вепмшл: for 42: = псаеф у0д0брг]+2 step 1 until

псаеф унднбл do

begin

бшонкмемхе у0дю(в2,д0яйю вепмшу, дняйю аекшу,онкъ вепмшу,онкъ аекшу, 42 опнднкфемхе); ськх нр ьюую: спнбемэ:=4;

бнгбпюр XOдA(CохCOыif qTyPOBEHb]=-1 then в2+2 else в2+1],д0яйю вепмшу, дняйю аекшу,онкъ вепмшу); go to а2 опнднкфемхе; 42 опнднкфемхе: спнбемэ: =4 end 42;

вепмше аепср мюгюд ябни оепбши у0д:сп0бемэ:=3;

бнгбпюр XOдA(CохCOK[if qjyPOBEHb]=-1 then а2+2 else а2+1],д0яйю аекшу,дняйю вепмшу,онкъ аекшу); бнгбпюр йнпнкъ аекшу: ял ябхдерекэярбн й юкцнпхрлс 50CJ:;

go to 41 опнднкфемхе; а2 опнднкфемхе: спнбемэ:=3 end а2;

аекше аепср мюгюд ябни оепбши у0д:сп0бемэ:=2;

бнгбпюр XOflA(CnHCOK[if qiyPOBEHb]=-1 then в1+2 else в1+1], дняйю вепмшу.дняйю аекшу. онкъ вепмшу): бнгбпюр йнпнкъ вепмшу: ял ябхдерекэярбн й юкцнпхрлс 50CJ:;

go to а1 опнднкфемхе; 41 опнднкфемхе: спнбемэ:=2 end 41; О: = псаеф у0д0б12]; if бнглнфем оюр then ме люр кх щрн:

begin нагнп унднб (онкъ аекшу,дняйю аекшу, дняйю 4епмшу,О,люр1); щрн оюр мю оепбнл унде:

go to а1 опнднкфемхе end;

output(7/ц,PEьEHхE,7); goto нрбер; MATl: outputя/кр.люр мю оепбнл унде,/); нрбер: ое4юрэ онгхжхх; ндмн пеьемхе мюидемн: go to йнмеж; а1 опнднкфемхе: спнбемэ: = 1 end а1;

output (7юр,*ундш аекшу хя4епоюмэц,7); go to йнмеж;

ньхайю: output(р,оепбшл унднл аеперяъ йнпнкэ 4епмшу*./) йнмеж: end





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.0016