Теория, планы, алгоритм и компьютерные программы при пяти уровнях факторов. Черный А.А. - 62 стр.

 procedure GB4340;
  begin
   for J:=1 to X do
     begin
      P[J]:=ste(H[J],J2)+V2;
      Q[J]:=ste(H[J],O2)+U2*ste(H[J],J2)+Q2;
      U[J]:=ste(H[J],P2)+I2*ste(H[J],O2)+M2*ste(H[J],J2)+F2;
      V[J]:=ste(H[J],T2)+G2*ste(H[J],P2)+H2*ste(H[J],O2)
      +K2*ste(H[J],J2)+L2;
     end;
  end;{GB4340}
 procedure GB4420;
  begin
   for J:=1 to X do
     Z[J]:=B[1]+B[2]*I[J]+B[3]*K[J]+B[4]*L[J]+B[5]*M[J];
  end;{GB4420}
 procedure GB4690;
  begin
   for J:=1 to X do
     begin
      N3:=B[1]+B[2]*I[J]+B[3]*K[J]+B[4]*P[J];
      N4:=B[5]*I[J]*P[J]+B[6]*Q[J]+B[7]*I[J]*Q[J]+B[8]*P[J]*K[J];
      N5:=B[9]*K[J]*Q[J]+B[10]*U[J]+B[11]*I[J]*U[J];
      N6:=B[12]*K[J]*U[J]+B[13]*V[J]+B[14]*I[J]*V[J]+B[15]*K[J]*V[J];
      N7:=B[16]*L[J]+B[17]*P[J]*L[J]+B[18]*Q[J]*L[J]+B[19]*L[J]*U[J];
      R3:=B[20]*L[J]*V[J]+B[21]*M[J]+B[22]*P[J]*M[J];
      R4:=B[23]*Q[J]*M[J]+B[24]*U[J]*M[J]+B[25]*M[J]*V[J];
      Z[J]:=N3+N4+N5+N6+N7+R3+R4;
     end;
  end;{GB4690}
end.

unit TPG3_3;
Interface
 uses tpg3_2;
 var
   grMode: Integer;
 procedure PR_MOD; procedure GB4880;
 procedure GB7000;
 procedure VVOD51; procedure VVOD52;
 procedure tablF9; procedure OUT_F_H_L(PR:integer);
Implementation
 procedure VVOD51;
   begin
    writeln('Ввод A1 C1 E1 D1 B1 J1 O1 P1 T1');
    readln(A1,C1,E1,D1,B1,J1,O1,P1,T1);
    writeln(F0,'A1=',A1,' C1=',C1,' E1=',E1);
    writeln(F0,'D1=',D1,' B1=',B1,' J1=',J1);
    writeln(F0,'O1=',O1,' P1=',P1,' T1=',T1);
   end;{VVOD51}
 procedure VVOD52;
   begin
    writeln('Ввод A2 C2 E2 D2 B2 J2 O2 P2 T2');
    readln(A2,C2,E2,D2,B2,J2,O2,P2,T2);
    writeln(F0,'A2=',A2,' C2=',C2,' E2=',E2);
    writeln(F0,'D2=',D2,' B2=',B2,' J2=',J2);
    writeln(F0,'O2=',O2,' P2=',P2,' T2=',T2);