A0:=VM[j]/W[j]+S*Z/6.28/R[j];

         BETA:=Arctan(A0/Sqrt(1-Sqr(A0)));

         C[j]:=1/R[j]/Sin(BETA)*Cos(BETA);

      End;

    For j:=1 to jmax do

      Begin

        If j=1 then begin FI[j]:=0; Goto 9 End;

        DFI:=(C[j-1]+C[j])/2*DR;

        FI[j]:=FI[j-1]+DFI;

        NG[j]:=Int(FI[j]/3.14159*180);

        NM[j]:=Int(Frac(FI[j]/3.14159*180)*60);

9:   End;

    if k4<=0.65 then begin writeln(f0isl,k4,' ',z); k4:=k4+0.005; goto 40; end;

    close(f0isl);

    Writeln(F00,'    R,мм   B,мм    NG    NM');

    Writeln(F01,'    R,мм   B,мм    NG    NM');

    For j:=1 to jmax do

       Begin

          Writeln(F00,R[j]:7:2,B[j]:7:2,NG[j]:7:1,NM[j]:7:1);

          Writeln(F01,R[j]:7:2,B[j]:7:2,NG[j]:7:1,NM[j]:7:1);

       End;

    Writeln(F00,' DVAL=',DVAL:6:1,' мм','  DVT=',DVT:6:1,

            ' мм','  D0=',D0:6:1,' мм','  Z=',Z:4:1);

    Writeln(F01,' DVAL=',DVAL:6:1,' мм','  DVT=',DVT:6:1,

            ' мм','  D0=',D0:6:1,' мм','  Z=',Z:4:1);

    Writeln(F00,' Qn=',qn:6:2,' Hn=',hn:7:2,' No=',no:8:1,

            ' NS=',ns:6:1);

    Writeln(F01,' Qn=',qn:6:2,' Hn=',hn:7:2,' No=',no:8:1,

            ' NS=',ns:6:1);

    Writeln(F00,' OK=',ok:6:4,' GK=',gk:6:4,' PN=',pn:6:2);

    Writeln(F01,' OK=',ok:6:4,' GK=',gk:6:4,' PN=',pn:6:2);

    Write(f0,jn);

    for j:=1 to jmax do write(f0,r[j]);

    for j:=1 to jmax do write(f0,b[j]);

    for j:=1 to jmax do write(f0,fi[j]);

    write(f0,qn,hn,no,ro,dval,dvt,d0,z,s,betl1,bet2);

1:

    readln;

       Close(F00);

    Close(F01);

    Close(f0); 

END. (* NasKon *)