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

If i>70 then goto 19; 1a:=1e/rycffl; if la>120 then goto 10; gosub;

Si:=n/(f*a[i]);

If si>r then goto 10; bbC13:=aCi]; 19: I:=0; 20: i:-i+l;

If i>70 then goto 29; rx:=sqrt(ixCi]/a[i3); la:=le/rx;

If la>120 then goto 20; gosub;

Si:=n/(f*2*aCi]); if si>r then goto 20; bb[23:=aCi3; 29: i:=0; 30: i:=i+l;

If i>70 then goto 39;

Rxo:=sqrt(ixo[i]/aCi]);

La:=le/rxo;

If la>120 then goto 30; gosub;

Si:=n/(f*2*a[i3); if si>r then goto 30; bbE33:=aCi3; 39: i:=0; 40: i:=i+l;

If i>70 then goto 49;

Rxl:-sqrt((2*ix[i3+2*a[i3*(0.5*b[i]-zo[i])*(0.5*bCi3-zo[i3))

/2/aEi3);

La:=le/rxl;

If la>120 then goto 40; gosub;

Si:=n/(f*2*aCi3); if si>r then goto 40; bbC43:-a[13; 49: i:=0; 50: i:=i+l;

If i>70 then goto 59;

Rx2:=sqrt((4*ix[i3+4*aCi3*(b[i]-zo[i3)*(bCi3-zoCi3))/4/a[i3); Ia:=le/rx2;

If la>120 then goto 50; gosub;

Si:=n/(f*4*aCi]); if si>r then goto 50; bb[5]:=affi; 59: i:=0; 60: i:=i+l;

If i>70 then goto 69;

Rx3:=sqrt((4*ixoCi]+4*a[i]*(2*zoCi]*zo[i]))/4/a[i]); Ia:=le/rx3;

If la>120 then goto 60; gosub;

Si:=n/(f*4*aCi]); if si>r then goto 60; bbC6]:=a[i]; 69: i:=0; 70: I:=1+1;

If i>70 then goto 110;

Rx4:=sqrt((4*ix[i]+4*a[i]*zoEi]*zo[i])/4/a[i]); Ia:=le/rx4;

If la>120 then goto 70; gosub;

Si:=n/(f*4*aCi]); if si>r then goto 70;

BbC73:=aCi];

110:exit; end;

Procedure prover(i:integer); begin

H->

Readln(aa[i]);

M+>

While ioresultoO do

Begin

VvodWindow(20,2,60,2,3,0);

<VvodWindow(20,1/60/1/5/0);> gotoxy(5,l);



.