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

         write(F0,'├────┼──────────┼──────────┼────────');
         writeln(F0,'──┼──────────┼──────────┼──────────┤');
         write(F0,'│ ',J:2,' │',F[J]:10,'│',H[J]:10,'│');
         write(F0,L[J]:10,'│',K[J]:10,'│',M[J]:10,'│');
         writeln(F0,Z[J]:10,'│');
        end;
      write(F0,'└────┴──────────┴──────────┴──────────┴');
      writeln(F0,'──────────┴──────────┴──────────┘');
    end;
  end;{OUT_F_H_L}
procedure GB2820;
 begin
   writeln(F0,'Математическая модель');
   if X=2 then
     begin
       writeln(F0,'X=2. Model');
       writeln(F0,'Z(J)=',B[1],'+',B[2],'*I(J),');
     end;
   if X=4 then
     begin
       writeln(F0,'X=4. Model');
       writeln('Z(J)=',B[1],'+',B[2],'*I(J)+',B[3],'*P(J)+');
       writeln(F0,'+',B[4],'*I(J)*P(J),');
     end;
   if X=8 then
     begin
       writeln(F0,'X=8. Model');
       writeln(F0,'Z(J)=',B[1],'+',B[2],'*I(J)+',B[3],'*P(J)+');
       writeln(F0,'+',B[4],'*I(J)*P(J)+',B[5],'*U(J)+');
       writeln(F0,'+',B[6],'*I(J)*U(J)+',B[7],'*P(J)*U(J)+');
       writeln(F0,'+',B[8],'*I(J)*P(J)*U(J),');
     end;
     if X=16 then
     begin
       writeln(F0,'X=16. Model');
       writeln(F0,'Z(J)=',B[1],'+',B[2],'*I(J)+',B[3],'*P(J)+');
       writeln(F0,'+',B[4],'*I(J)*P(J)+',B[5],'*U(J)+');
       writeln(F0,'+',B[6],'*I(J)*U(J)+',B[7],'*P(J)*U(J)+');
       writeln(F0,'+',B[8],'*I(J)*P(J)*U(J)+',B[9],'*Q(J)+');
       writeln(F0,'+',B[10],'*I(J)*Q(J)+',B[11],'*P(J)*Q(J)+');
       writeln(F0,'+',B[12],'*I(J)*P(J)*Q(J)+',B[13],'*U(J)*Q(J)+');
       writeln(F0,'+',B[14],'I(J)*U(J)*Q(J)+',B[15],'*P(J)*U(J)*Q(J)+');
       writeln(F0,'+',B[16],'I(J)*P(J)*U(J)*Q(J),');
     end;
   if X=32 then
     begin
       writeln(F0,'X=32. Model');
       writeln(F0,'Z(J)=',B[1],'+',B[2],'*I(J)+',B[3],'*P(J)+');
       writeln(F0,'+',B[4],'*I(J)*P(J)+',B[5],'*U(J)+');
       writeln(F0,'+',B[6],'*I(J)*U(J)+',B[7],'*P(J)*U(J)+');
       writeln(F0,'+',B[8],'*I(J)*P(J)*U(J)+',B[9],'*Q(J)+');
       writeln(F0,'+',B[10],'*I(J)*Q(J)+',B[11],'*P(J)*Q(J)+');

                                       110