Улучшение способов получения пористых материалов и изделий на основе изобретений и моделирования. Черный А.А. - 165 стр.

    writeln(F0,'+',B[22],'*I(J)*U(J)*V(J)+',B[23],'*P(J)*U(J)*V(J)+');
    writeln(F0,'+',B[24],'*I(J)*P(J)*U(J)*V(J)+',B[25],'*Q(J)*V(J)+');
    writeln(F0,'+',B[26],'*I(J)*Q(J)*V(J)+',B[27],'*P(J)*Q(J)*V(J)+');
    writeln(F0,'+',B[28],'*I(J)*P(J)*Q(J)*V(J)+');
    writeln(F0,'+',B[29],'*U(J)*Q(J)*V(J)+');
    writeln(F0,'+',B[30],'*I(J)*U(J)*Q(J)*V(J)+');
    writeln(F0,'+',B[31],'*P(J)*U(J)*Q(J)*V(J)+');
    writeln(F0,'+',B[32],'*I(J)*P(J)*U(J)*Q(J)*V(J),');
   end;
 if (X=2)or(X=4)or(X=8)or(X=16)or(X=32) then
   begin
    writeln(F0,'ГДЕ');
    writeln(F0,'I(J)=F(J)^',J1,'+',V1);
    writeln(F0,'Обозначение:F(J)- 1-ый фактор ');
   end;
 if (X=4)or(X=8)or(X=16)or(X=32) then
   begin
    writeln(F0,'P(J)=H(J)^',J2,'+',V2);
    writeln(F0,'Обозначение:H(J)- 2-ой фактор');
   end;
 if (X=8)or(X=16)or(X=32) then
   begin
    writeln(F0,'U(J)=L(J)^',J3,'+',V3);
    writeln(F0,'Обозначение:L(J)- 3-ий фактор');
   end;
 if (X=16)or(X=32) then
   begin
    writeln(F0,'Q(J)=K(J)^',J4,'+',V4);
    writeln(F0,'Обозначение:K(J)- 4-ый фактор');
   end;
 if (X=32) then
   begin
    writeln(F0,'V(J)=M(J)^',J5,'+',V5);
    writeln(F0,'Обозначение:M(J)- 5-ый фактор');
   end;
end;{GB2820}
  procedure GB7000;
  label 1;
 begin
  repeat
   writeln('Вычисления показателей Z(K5)');
   writeln(' по математической модели');
   writeln(' с ипользованием циклов');
   writeln('vvod X');
   write('X=');
   readln(X);
   writeln(F0,'Вычисления показателей Z(K5)');
   writeln(F0,' по математической модели');
   writeln(F0,' с ипользованием циклов');
   writeln(F0,'X=',X);
    case X of
     2: I0:=73;

                                             165