?<2CB
HG,D4EBBZ*APBLAEA*A*TAAF*APA$AFG*A*CAAMI78C&	\]*[+(PI= IAM&NBG%P&PPBIV\(PB %P&-^&PPB V
&PPBJV &PPBLV &PPCV \;I]&PPBMV\AE&Q*AM%QI]&P+C=%P&P*$V%	JCKR&P*	W\AY&P%RIA5KR*(&PS%RKR&R&PM%RKR&P*	W\A,IA$&RPAX\A5&RPAM%RJD&,\A?& %R]%,IB-KAN&R*:V&R*<V &R*>V \B-&R% KAN&R*=V\B%& *:V\BZ*!IB"& *<V\B!*?IB"*&%RIB-&RDD& %RLD% ]^%,&R*[X%(&R*/Y&R*:X
%)JC&RPCVV&R*;V &RPCTV &R*$V DC/C&T*DY&T*HX
DC/C&T*CV&T*GV &T*MV &T*RV DC/DLDLD*
Z\C&PCIC(PBMDC/E&OBELLDFE=LLEF&OB(JCKA6&(&) DC/DLDLDPATPASUDC/C&R%U]%V]%WKC6\D9*:&US&RM%UKC6\D9&R%VKC6\D9*:&VS&RM%VKC6\D9&R%WKC6\D9*:&WS&RM%WKC6\D9ID3]%*&^%SIED*AQ*A"S\E)&U&SNAV\E	&V&SNBV\E	&W&SNCV\E	]^%*&SNDPAT%T&SNE%
KCG\E%&
+C=%
IE)ID>JC&&\E0]+E1JD&&\FC&OBPA&YSLDMF&OB(&[*AM%[IFELD%Y&&^%&JELD+E1LE+E1JD**LD,FHJDKE*&OBELLDFE,JDKE*&[*AM%[&OBELLDF&OB(JC&X+F6KGIDC/D*I+E1LD+F JC*\+E1&X+F KGIDC/C&XDC&X*AM%X/DLDND+C=LDNE+C=,FHJC&\%
&\*AM%\JC&
&$Y\G1&
%$&
*?Y\G1*E+(PJC&^PBLV\G=*O+(PIHA&^*AM%^&*&S&]Y
\HJ*A+(P&T*JX\HPKG&^&UOA&^&VOB&^&WOC&^&
OE&^PA&TS&MOD&.\H4*AB(K	-*ABE &
FE &FE &TFJH&TDG&\DD&^*AMDE*ADH*ADFKDFLG%TKG\KG2&R*,V\IULF*AMDFKA6IIB*[*R,)EKM<*:*R,)EKM<&R*]V\I)KA6II2*,*R,)ELH*AMDHIIY*A&",FHLFLD,FHLG*EV\JA*CIJB*ALH,FHLE%SIJN*A&^"S\JW&S&SNEPALHSMOEIJI&R*,V\J
KA6IH8*,+VTJD&TDDKDFLD%TKG\KG2&R*,V\J6KA6IJ&&R*;V\KKA6KU?IKBKA6JD]DD&RPKUV\KN*ADDILY&RPE6V\KW*BDDILY&RPA
V\K *CDDILY&RPLLV\K+*DDDIL1ILY&RPM1V\K6*IDDIL1ILY&RPA:V\LA*EDDIL1ILY&RPJRV\LL*JDDIL1ILY&RPG!V\LW*NDDIL1ILYIL3KA6&RPA:V\L%LD*DMDDIL1&RPJRV\L/LD*JMDDIL1IL3KA6LDDC/D&ZPA$V\MA*^+(PIME&Z*AM%Z&Z&UOG&Z&VOH&Z&WOI&ZPA&!S&TMLDMOK&Z&QOLKGI%
&Z&
OJJD]DCLDNG&UV\M;LDNH&VV\M;LDNI&WV\M;&!LDNKPATV\M;]^DC/CK0)\ND*++E1JD&Z]W\N;*ADDINS*A&Z"BD\N;LD+M \N9LDNK+C=*OX\N+LDNJ%
LDNK+C=%TIN>IN9LDNK+C=&T*JMV\N9LDNJ%
IN>INN*J+L6JD&X+FV]+L6*ADDION*A&Z"BD\O(LD+M LDNK+C=&T*JMV
\O&LDNJ&
,C*LD+O.LD*AUDDIOIKG2&^*COEJDLD&ZNGOGLD&ZNHOHLD&ZNIOILD&ZNJOJLD&ZNKOKLD&ZNLOL&Z*AU%ZJC]^%-KR&P*"W\P[&P+E1KRIPP]%-KA6]+E1JI&*&S*TX
\SD&SDE*(* ,)E&S*JX\RTKM<LE*G[\Q)*,**,)ELE*GW\QHKM<LENE+E1IQ	K0)^\QO*,+E1&R*)V\QX*0+E1IQ	*,**,)EKM<*,**,)EKM<*B+E1IRRLE*FV\RN*,**,)E&R*"V\Q<*E+E1KPKIRLKDF&*^&T*DW \RG**+(PK33*<+E1IRRLENE+E1IR=K0)^\R[*,+E1*[+E1LE*JW\R(LE*IU+E1IR=]DF*,**,)E&)\R:*JLFS&RM*0UD
KA6IR-LF+E1LENDPATDDIU8&*&T*NY
DHLH\SS&SDF&T*EUDDISYKNE&TDD&
DF&R*(W\S1LH\S)K33*:+E1KE*IS/*K+E1&
+F IU<]DEKA6KKCDGLG]W\TGLG*JX\TB*S+(PLG+7IIUS&(^\T:&R*"V\T%*/+E1KGI+F KF.DILI*AU+FVKPKLI+FV*D%TIT8&RPH?V&RPL2V &RPC1V \T4*CIT5*A%TK%9IUSKDF&*^\UB*"+(P&T*DVKCG&R*[W
 \UOK33IUS]^%+K%9&T+FPLE*AMDE&R*,V\U"KA6IS4LH\U1LF%SK33*;LE,FHKE*IU8*$LE,FHLF+F *)*U,)ELD%TJC&RPBGV\VSKR&P*;W\VOIVEIVSKA6IVJD*;LD,)EKU?JK&(\WWKDF&R*:V\V7*N%TKN?*=&,FH&"+E1KA6IV]IWU&R*[V&R*!V \WBK&+IWU&*^\WI*J%TIWS&T*JW&T*OW
\WS*+(PKP!I^F&RPE.V\XBK3:DD&RPE.V\W	*!+(PKV\&RPCTW\W3LD+FVIXKA6KF.DELD+FVKV\LE+FVI^F&RPD	V\XQKA6*N+7I*9+E1I^F&RPC?V\[HKA6KDF&*^&T*BY \X*M+(P&TDE&SDD*!*X,)EKG\&
DFKGKGIDGKGIDJLJDHKGIDIKGIDJLH+FVK&MLD%SK3,*/+E1&RPN V\YSLHIY\&RPLLV\Y[LIIY\LJ+F *DLF,FH&RPN V\Y2KA6*C+7ILE%TIZ
IY9&RPLLW\Y9IZ%KGIDKKA6*]+E1LK+F6LI+FV*]*^,FHLK+FVLE+FPK&MPMV*
,)EK&M*"+E1LD+GP*\+E1LJ+F &R*,V\Z0KA6LG+F6IX7PB/*V,)ELG+FVKV\*LLF,FH*9+E1LJ+FV&\*AU%\I^F&RPAUV\]WKA6KU?]DG]DH]DIKKC%T&T]W\\YLI^\[,]^DI&!*AM%!&]DD&^%]&\DE&T*DX\[4KJI\W&T*JX\\MLG\\LF+FV]DGLH^\\I]^DH&"*AM%"KH5I\WLG^\\UKF.DF]^DGK
4I[VLG\\ ]DGLF+FVKV\&R*;V\\.KA6KU?I\ I\8&RPCVW\\8*P+(2I\ KA6KB8^\]I\8LI\]ULH\]M*>+E1&"*AU%"&]%^LD%]LE%\K^GI^F&RPL2V\^F]^%-*7+E1KE*KA6&RPA4W\]9&R*;V\]2&OB(I]7&OB&R+C]HI]KA6]%-&OBEDECIMAL;-2024;JF&!*AU%!&Z]W\
3*ADDI^X*A&Z"BD\
3LDNKPAT&!Y\
1LDNK+C=DFLF*TX\^0LD+O.LD*AUDDI
1LDPA&!SLFMOK*ADEI^?*A&Z"BE\
1LDNGLENGV\
/LDNHLENHV\
/LDNILENIV\
/LENK+C=LF*JUV\
/LENKPAT&!V\
/LDNJLENJ,C*LD+O.LD*AUDDI
1I^:I^SJL&DK&%%&%*AM%%&*?Y\ D*W+(P&TDIKDFLI%TKN?&"DJ&]DE]%"&!*AM%!&^DF&^%]&$DG&\DD*C%$*D%\&X+F &XDH&X*AM%X&+E1&R*(V\%]%TKA6KJ*\+VT*A%SI!A*A*T"S\!E&S]OFI <KKCDLLL*IV\!-KDF&*^&SLFZ \!Y*	+(PI!^&SLFU*AOF&R*,V\!(KA6I!LI!-*]+VTI!EI!2KKCDLLL]W\" LL*IV\!=*Z+(PKDF
*^&T]W \"J*]+(PI"Q&SPALLS&MOD&R*,V\"[KA6I!=I" *]+VTI!/&$*CU+E1&^%SI"1*AQ&^&$U*DM"S\&SNDPATDLLL]V\"?*(+(PI!LL+E1LL*IY\L&S&SNDPEMODLL*DX&SLFUNF*AW
LL*DY&SLFUNF]W
 \!*)+(PI"(I**]+VT]+E1KV\*W+VTLI*JY\7*L*C,FH*J+E1&OBELLHFE=&$*CSFE;LD%\LE%]LF%^LG%$LJ%"LK%K^GJF&T*DUDD&SDF*[*C,)E*ADEKM<&R*]V\$)KA6I$2*,*D,)ELE*AMDEI$
LEDCLF%SLE&SNEPATW&SNEPAT]W
\%F*T+(PLD%T/D&+\%P]%+I%RKDF&*^\%Y&T*JM%T&T*JY\%$KP!&T*JU%TI%8&T*DY\%6K$SDD*N+E1&S+GPLD+E1I%8K33JCKCO\&C*C+7II&LK0)\&J*AI&K*B%TJD&TDDK%9LD*AV&T*BV
\&^*,+E1I&(LD*BV&T*AV
\&(*++E1LD%TJE&*^\&4*Q+(PI	,&SDD&T*K[&T*MZ
\	A&T*JU%TKCG\	YK$SDE*!*X,)EK&M*O+E1LD+GPLE+E1I	,&T*DX\	)*!*X,)EK&MLD%SK3,I	,*Q+(PJC&U+(C&V+(C&W+(CJDLD]W\(B*ABLD+C]HJDLD*:T+	8LDLD*:T*:SU+	8JD*AB(]%O]B]H*ABEFAIL LDFE LINE &QFE IDENT K	-*ABE SYMBOL &RFJDLD+(PKB8\(<KA6KB8^\)DKA6I(<JE&RLDW\)MLE+(PKA6JELE^\
W*,+E1LD^\)]*3+E1JJ&+\))K%I&T*AVDCI-=&R*-VDD&R*+V&R*-V \)6KA6&R*(V\*EKA6K0)DF*)*L,)EI-/&(\* &T*BY\*N*B%TK%I&T*AV&T*BV ^\*[*&+(P&T*AVDFI-/]DE]DF]DG&R*&V\*:&NBGDGKA6]^DELG+C=DILGPATDJI+;&)&R*.V ^\+C*J+(2LG*AMDGLG&R+C]OF&R*.V\+S]^DFI+.&R*EV\+.]^DFKA6&R*+V&R*
V \+,LG*AMDGLG&RPBMOFI+.I+CKA6&)&R*.V &R*EV \+;I+CLF\,*-+E1KE*&OBEFLTG;*ADHI,Q*ALG"BH\,W&OBLHNFHI,L&OBE;DECIMAL;&[*CM%[I-/LE^\-T]DI]DJ*ADHI,2*ALG"BH\-T*JLISLHNFMPB0UDILJ*JSDJLIPA[\-KLJLIPATMDJLI+C=DILJ*
Y\-R*,+(PI,-LI]VLJ]V
\-
*]+E1I-/LJ]V\-(LI+FPI-/*P+E1LJLI,FHLD\-;LF\-8*.I-9*Q+E1LFDC/EK)^DD&R*^V\.\LD^\.N*,+E1]^DDKA6K)^\.W*1I.X*R+E1I.BLDDC/EK->DD&R**V\/CKA6K->DELD^LE^
\.6*S+E1I.?LDLE,)P*2+E1]^DDI.I/.&R*/V\/YKA6K->DELDLE,)P*4+E1]^DDI.I/.&R*%V\/.KA6K->DELDLE \/)*K+(P*T+E1I.LDDC/FK.
DD&R*+V&R*-V \0&&RDFKA6K.
DELD^LE^
\0TLF*+V\0O*MI0P*U+E1I0$LDLE,)PLF*+V\0
*5I0 *6+E1]^DDI/5LDDC/G&RPE.V\1,K3:DFK/1DDPCT*G,)EKF.DGLF+FVK0)DELDLE
LD^LE^
 \1OLG+FVI1(LD\1Z*,+E1LG+FVI1(KF.DFLG+FV*,+E1]^DDLF+FVLDDCI1/K/1DC/FK0)DE&RDDKA6K0)DFLE^LF^
\2E*)+E1I2LLELF,)P*8+E1LD*=V\2U*V+E1I3HLD*V\2
*V*^,FHI3HLD*<V\2(*X+E1I3HLD*>V\21*W+E1I3HLD*?V\2;*W*^,FHI3HLD*&V\3E*X*^,FHI3H*I+(2JG&SND+C=DGLG&V\3XLD+E1I3%LG]V\3!LE+E1I3%LFLG,FH&SNE+C=+E1JC*D*%*Z-3IJC*L*&*Y-3IJCKA6*C+7IPL(*Y,)EKF>DC/D&+\4PK%II5"&RPH?V\4[]^DDKA6I4]]DD&RPL2V\4*KA6*]*^,FHI5\&RPC1V\46KA6
]+E1I5\&(\5K*C%TKDF]^%+KCO\5GK%II5IK10I5\&R*(V\5ZKA6*C+7I*)*N,)EI5\K10LD\5"*^+E1JCK4H&RPA6V\54KA6K4H*
+E1I5&JCK5&RPI*V\6FKA6K5* +E1I58JCK55&RPCYV\6XKA6K55*!+E1I6JJDLD*CV\6"K6GI7H&R*(V\61KA6LD+7I*)*N,)EI7HKDF&*&TLD*EMV
\6>K33I7HLD%TKNE*/+E1&
+F JF&RPE.W\7TLD+6YI7*K3:DELD+6YPCT*H,)EKF.DFLE+FVLD+7ILF+FVLD%TJGLDLEOALDLFOBLDLGOEJ]D,]D-]D*AD%]DZ]D$]D!]D"]D[]D	*ADQ*TDX*SD^*BD\]D+]D&*AB(*ABEROGALGOL MK34*AB(]BGDNLN]V\9R*ABEOUTPUT-*ABCDOLO*IYD.LOLO*JT*JSUDOLO*CV\8?*B	*AB(*ABEINPUT-*ABCDNLN*CV\9P*A	I9
*A	]BGDNLN]XD.*CDN*CDOLOB(LOBEDECIMAL;FIELD 0;-885;-1153;*ADSI98*A*S"BS\:GLSLS*IY\:PKI:BPJODLS]OCI93*BPLOD*DPKOD*QPLOD*RPLOD*APQYPHZ*(.7-*BPB6PHX*G.7-*CPC1PQY*	.7-*DPPY*>*C.7-*EPHY*C*.7-*FPRMPVD*E.7-*GPP+PP]*0.7-*GPRMOC*HPUHPH^*F.7-*H*EOC*IPB6PM;*H.7-*I*T
C*JPSUPD4].7-*KPQ
PP(].7-*LPQW*N].7-*MPB=*S].7-*NPALPCB].7-*NPAHOC*OPD:*P].7-*PPKF]].7-*QPQWPF$].7-*RPD0PRQ].7-*RPD4OC*S*<*S].7-KA6KV\LR*$W\<	*F+(P*?+E1KE*LZ]W\=J*ADSI<9*ALZ"BS\=JLSNGDULSNHDVLSNIDWLSNLDQ*B+(PI<4LOBEV=.;*125;V;L$*CSFE;LOBPB$HLOB(LOBPBZH*AB(*ABESIZE L[F?"T1J
28.D6B .E.A
C^.U*J,O	. A E<B??%)8 H^H;9 H:H^,BJYJY>T=).LH!COMOS8\X8 HXXX,YPXLX,
,$BS,&BWKVE"BA2KHXXYHYA??????L>1MBWC!E+HK-H4H=F6M*B,DFB8I%M%G,EFGVESE)D%D-E/E3FFHFNFTFZF EWE[F-DNF:B7B2G5DKCM.BWF8B7B6B5B4DEE)E)E)E)E)E)E)E)E)E)E)E)E)E)E)E)-!PU*GHVC?.A2ILH2AXV: XUHV8J8J8JC?.A\X8 HXXXPU*^HVC?K>Z]<B2ILH2AXV: XUHV8J8J8JC?K>Z+<BXU8 2ILHXH*
$**88A8A8A8AX90Y<H$>HSXI2ILHX7L72AHSXSHR\I8 HIXRHH\IH7XHH9<(*^HI8AX8H98!X9PXLX\8P9<H*^8 H8X8+W$*8!X:$*HPX7 
X8 
X9H98!H88AX8H98!H<\7P7H<H8X<P:+0,&X JA2I-?$*HPX7L7,$8 X7HRXIHRXSLIXR/?XU:XH8AX=JXPHPXRHQHRXSJ$X<8 J$XX0L0&0V(%NXX:">Z+">X		>*4X:">Z3">X		=:H	Z>H:8H:J><X8!(PXLX=HP:=H8!.>PXLXX7$*HPX8L8PXLXX8H7\8,&PXLX8!,$PXLX8 ,$PXLXX7PXLX7,$PU82ILH2A/"/*L6PXLXX=,& 
8! 
,$PXLX8!PXLX>(8 ,$HY>(JPJ,K4PXLX8!PXLX> 8 ,$ 
8! 
?H8 ,$ 
8! 
? 8 ,$ 
8! 
?(8 ,$ 
8! 
?8 ,$2ILH2AX7PXLX> .,8 H7XH.,B^ 
X7 
> *4H7,$8 ,$	?,$$*,$PXLXX9PXLXX8$*KUX7$*L7X7H8?8 X:H8L7\7L78!H9P:8!?8 ,$PHU> +]2ILH2A,$HVC>X82ILH2AXVHV8DC=H88F8F8F,$$*HPX7PXLXL7X7L7,$$*HPX7PXLX\7,&GA>?KFX7X8"+K?<(*BK><(*BK=<(*BK<< *Q"+*VK;X:8 X8H:K:=H*&K9= *&K8X9H79FH79DH9X7"+*V:H7P88!(: H=> *2	7.+	6.+
*<(,&K5=HK4K3$(*4 
9=H81X	K;<X$(:X;	2JX7	2JX8	2JX9H	< [H9[H8[H7K1$((%<(+!K1$(/[H;>(/[+^$*HRX7L7,$+IB*?IXPT+2IBB0JPB A? KFL I?7=PB-?]V?-=3L/K!MS.ML/L/L/L/MYM[M 0L/L/L/L/Z(NPRP9!Z)J+Z**!J(8DZ(J(J)<XZ(:H	8DX	R**YJ(.P?3;Z)J+Z*N,Z(R,*<J)<P*:9J(8HZ)H	8HX	R**5J)., 
$?(%H=<(+TK
[L<B<(+LK?<(+LK>/FH0/FX;H=K [\H;<B:/V&&H0Y+"$>0^/!8F8F8FC=/	$*HRX7PXLX\7,&LIXHP7/<XULI,$0&B^?C?<ANR<(.[:*AX		?HK>Z]	?HK>Z\	?HK>Z[H	K>[;".H	=[J.<(*(J,. J-[:*&BMBJ=3:K<[:J/"H0Z"BMBJC^.=/4>0Y.>0\K;<(+OK:<(*6K9> .>0Z2C.?0Z2C/RB">0I+T0N/S/Y0!+\0&/[0Q+!0V/ PXLX
XLX,$PXLX$(,&K8$(K7$(,&J<<(+8ZCBJBMP?==0B?K!B0JP	?B6 	>/7L/>GL/<=&C?L/H2> &P4*"&EB6?<H&RV: JUZFJ%X4J>ZGJG=H*;:RFNFBA9DJG8F8FZGNFBCJB> *7X*N8AX2NFBC2C.M^F9P*+H[L2IOJSJ2A
KSKSL+A.?O?ZEO>
=X2O=ZV8 X4/MK<[K;$"?O<C;<(++K:[32IO32A<(+-
?M/XSX/X	9	8+)	7/28=	6+4L>1Q7T-7>&O101H117^C?K>"J*H:X.2C.K=Z1H3> 	<H5> *YO;X58 J4[K*\8*^*:JRZYKK[LSKJ1
KRYJ1K>>(*.P5.J"1SI.J	<"1RJ.J	J":	<R5P6.1J18F8FC)OL
LJ18J8J8HC)OK*">GL//:	T/MQ	GD6 	</QH68[&K)[ZK+C9<(/X2J	*D1,	</X<?B.D??:?&O2.%L/BZ=&C?	?$6 	>O=
</;X X^LKI><(*JI=<HLKX+H+I<<(*4I;9I:>P*!I9H+9PI8>P*9H^I7?*PH^9HH
XQH+A6<X*08F8F8FLQ\QP^*PP *9P
I5*IH^> R. HYWHZWH[WH\>(.=I4!H\W.=WSO<H:OO< +L0!+T,(X+H+8J8J8J!H+!/WA6<(/!I3=HI2I=$V/!+/0!+-0&:I1[,/+O?LLK<(/71O1N1QL/>G+XCT*/C^+NCO7ICN+UCT*!?^"M&J7JCM6 KE/IKN2MVJ3RC+N232I7J3SN 3H7NE7S6JRI+ACD7AKL3N7A"M&J3DGC. GM"M&J3TSA2 3A3RGN/MF+"M&J3DGC. GM"+616JRI+
CD7AKL3N7A"+622JRI+CCA+M.1"2*M2IGT3DF 3L;R+A/M"3*M2IOD3A6 "2*M2I7J3S6 3EGSG7E.JGM.,BI"M&J"0*M"I60.JBI"M&J7JOM2 WM3S
A2J	SHK?[SKS
>O=Z(^(2J	SEAL0&K<
;K:
9K8	7K6
9K5
;;$	7TK4Z(O:
3O:C2<(/12J	SA	0O/<(K.K-<(/,K+
/K*Z9O:C22J	SB1,*>X6	)K*[DO:2J	SC	0K(
	2J	SIK&[SKS
>	%	$.?K[^O6C2<(	02J	SA	0/T9DZC2/M8D?JK01X1,AL<>4AC1/8.<;O134>O10.??;/K1+/J>JH1*BRALGOLSV:O?
>O?
=O?
<O;
:X6X5X3O9
82IO7C6> 9X8AX0O5C42A>(*O3>(/2K1K0
/2IO52AC.9HK-
,
+.D:O*Z<2J&<IK)
*O*
(J.
+/Y:K0
/O+> /0O	Z<N<> /&:A2J	)B8/%KL[XO=
$O
.2J	)FL0SK SKIP ERRORDISK13DA< :NJH1*?7SL/1Z8DL=/4?<:1+ >P>$1J6(1I7E0512.D7D"	"3NO OUTPUT FILE^:K?
>/="	"3ERROR OCCURED.^"3 RETURNING TO OS8^2C0!*$/<"3^CANNOT CHAIN AS .	;N38J8J8J">N3">R3*5C;<(+KK:<(+MK9=HK8K7R.>R3.3K6RK5R+I0!+S0&	4:/RE8ERK?;>Z 32DF?;0\ 08RF?>4
X NCLI?>4
VH8ETDL>BJBMB A?>?"?>L7L=/4	?^EXTENSION .AL NOT ALLOWED IN OUTPUT^K>
=/<	?^ NO INPUT !^*T	;O:Z*O9Z+O8Z,O7Z1	?	?.	?	? NOT FOUND^/6O5K4>(	32IO2C12A> +GO0//2IO2C.K-
22AKX
5KX
,KX
+KX
*8A
)/(00LN=	X\;O80?V1!?,C?YGF7:NL	=\X6
1+1/1.1-D;?7HJH >8.OP1,:X8C8B8A8:	8/9YL7:3

Note: Lines longer than 256 characters were wrapped