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