"CODE" 35185; "INTEGER" "PROCEDURE" START(X,N,T); "VALUE" X,N,T; "REAL" X; "INTEGER" N,T; "BEGIN" "REAL"P,Q,R,Y; "INTEGER" S; S:= 2*T-1; P:= 36/X-T; R:= N/X; "IF" R>1 "OR" T=1 "THEN" "BEGIN" Q:= SQRT(R*R+S); R:= R*LN(Q+R)-Q "END" "ELSE" R:= 0; Q:= 18/X+R; R:= "IF" P>Q "THEN" P "ELSE" Q; P:= SQRT(2*(T+R)); P:= X*((1+R)+P)/(1+P); Y:= 0; "FOR" Q:= Y, Y "WHILE" P>Q "OR" P<Q-1 "DO" "BEGIN" Y:=P; P:= P/X; Q:= SQRT(P*P+S); P:= X*(R+Q)/LN(P+Q) "END"; START:= "IF" T=1 "THEN" ENTIER(P+1) "ELSE" -ENTIER(-P/2)*2 "END" START; "EOP"