var L50, L60, L100, L135: boolean;
  while n>=0 do begin
    [ CODE BLOCK ]
    (L50,L60,L135):=(false,false,false);
    while true do begin
      if not l60 then begin
        [ CODE BLOCK ]
		end;
      L100:=false;
      [ CODE BLOCK ]
      for var ict:=1 to 500 do begin
        [ CODE BLOCK ]
        if u.Real=0 then begin
          (x,L50,L135):=(0.0,true,true);
		  [ CODE BLOCK ]
          break
          end;
        [ CODE BLOCK ]
        if sumsq=0.0 then
          if ifit=0 then begin
     		 L60:=false;
			 continue
			 end
          else begin
             L50:=true;
			 break
			 end;
        if Abs(dx.Imaginary)+Abs(dx.Real)<1e-12 then begin
          L100:=true;
		  break
          end
        end;
      if not L50 then begin  
        L100:=L100 or (ifit<>0);
        if not L100 then
          if ini>=5 then begin
     		 ier:=3;
		     Exit
			 end
          else begin
             L60:=false;
			 continue
			 end;
        [ CODE BLOCK ]
        if ifit=0 then begin
          (ifit,xpr,L60):=(1,x,true);
          continue
          end
        else break
        end
      end;
    L50:=false;
    if L135 then begin
      [ CODE BLOCK ]
      end
    else begin
      [ CODE BLOCK ]
      end;
    [ CODE BLOCK ]
    end
end;