If (yyl-6) And (fl=’y’) then

Begin gotoxy(l, l); write(aaCl]:12:l); end;

If (yyl=10) and (fl»’y’) then begin gotoxy(l, l); write(aaE2]:12:1); end;

If (УУ1=14) and (fl=’y’) then begin gotoxy(l, l);

Write(aaE3]:12:l); end; end;

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)*ll+kl;

End;

Procedure raschet; label 10,19,20,110; begin

I:=0; 10: i:=i+l;

If i>23 then goto 19; rx:=sqrt(ix[i]/aCi]); ry:=sqrt(iyCi]/aCi]); la:=le/rx;

B:=sqrt(4*(ixCi]-iyCi])/a[i]); l:=40*ry;

If la>120 then goto 10; gosub;

Si:=n/(2*f*aCi]); if si>r then goto 10; bbC13:=aCi]; bb[2]:=b; bbC33:=l; 19: i:=0; 20: i:=i+l;

If i>22 then goto 110; rx:=sqrt(ixlCi]/al[i3); ry:=sqrt(iyl[i]/alCi3); la:=le/rx;



.