End

Procedure gosub; begin

K:=r/2100000; ll:=la*sqrt(k);

If 11<=2.5 then f:=l-(0.073-5.53*k)*ll*sqrt(11); if 11>4.5 then f:=332/(ll*ll*(51-ll)); kl:=(0.0275-5.53*k)*ll*ll;

If (11>2.5) and (11<=4.5) then f:=1.47-13*k-(0.371-27.3*k)*

11+kl;

End;

Procedure raschet; label

10,19,20,29,30,39,40,49,50,59,60,69,70,100,110; begin



.