31
(NRA[1] = 6) or (NRA[1] = 11) or (NRA[1] = 12) then begin
LinVent1; if IERR <> 0 then goto 1; if L1 <> 0.0 then goto 3
end;
if (NRA[1] = 7) and (LRA[1] < 22.0) then begin IERR:=1; goto 1 end;
if (NRA[1] = 13) and (LRA[1] < 3.0) then begin IERR:=1; goto 1 end;
if LRA[1] < 5.0 then begin IERR:=1; goto 1 end;
end;
3: NR:=AMOUNTR;
L1:AK[16]+BK[16]r_*(BET,CK[16]);
if (LRA[NR+1]/L1 < 0.5) or (LRA[NR+1] < 0.5) then begin
IERR:=2; goto 1
end;
MR:=NRA[1];
L1:=AK[MR]+BK[MR]*r(BET,CK[MR]);
MR:=NRA[2];
L2:=0.5*(AK[MR]+BK[MR]*r_(0.7,CK[MR]));
if NSUZA[NNit] > 2 then
case NRA[2] of
10: L2: = 2.75;
4: L2: = 5.25;
5: L2: = 2.75;
6: L2: = 2.0;
11: L2: = 2.25;
end;
L21: =LRA [2]-LPA [1],
if (LRA[1] < LI) and (L21 < L2) then begin
LRA [1]: =LRA [2]-L2; ifLRA[1] < 0.0 then LRA[1]:=abs(LRA[1])
end;
EL:=0.0;
if NSUZA[NNit] <= 2 then
for I := 1 to NR do begin
if (NRA[I] = 13) and (LRA[I] < 5.0) then begin
DL:=0.5; goto 5
end;
MR:=NRA[I]; DL:=0.0; L1:=AK[MR]+BK[MR]*r_(BET,CK[MR]);
if LRA[I] < L1 then DL:=1.0/(0.8+19.2/r_(L1/LRA[I],4.0));
5: if DL> EL then EL:=DL
end
else
for I := 1 to NR do begin
if (NRA[I] = 10) or (NRA[I] = 4) or (NRA[I] = 5) or
(NRA[I] = 6) or (NRA[I] = 11) then begin
LinVent2; goto 7
end;
if (NRA[I] = 13) and (LRA[I] < 5.0) then begin
DL:=0.5; goto 7
end;
MR:=NRA[I]; DL:=0.0; L1:=AK[MR]+BK[MR]*r_(BET,CK[MR]);
if LRA[I] < L1 then DL:=1.0/(0.8+19.2/r_(L1/LRA[I],4.0));
7: if DL>ELhenEL::=DL end;
L1:=AK[16]+BK[16]*r_(BET,CK[16]);
if LRA[NR+1] < L1 then EL:=EL+0.5;