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

    writeln(F0,'X=8. System');
    writeln(F0,'1.1.','A2=',A2,'A3=',A3,'A1=',A1,'Z(1)=',Z[1]);
    writeln(F0,'1.2.','A2=',A2,'A3=',A3,'B1=',B1,'Z(2)=',Z[2]);
    writeln(F0,'2.1.','A2=',A2,'B3=',B3,'A1=',A1,'Z(5)=',Z[5]);
    writeln(F0,'2.2.','A2=',A2,'B3=',B3,'B1=',B1,'Z(6)=',Z[6]);
    writeln(F0,'3.1.','B2=',B2,'A3=',A3,'A1=',A1,'Z(3)=',Z[3]);
    writeln(F0,'3.2.','B2=',B2,'A3=',A3,'B1=',B1,'Z(4)=',Z[4]);
    writeln(F0,'4.1.','B2=',B2,'B3=',B3,'A1=',A1,'Z(7)=',Z[7]);
    writeln(F0,'4.2.','B2=',B2,'B3=',B3,'B1=',B1,'Z(8)=',Z[8]);
    writeln(F0,'5.1.','A1=',A1,'A3=',A3,'A2=',A2,'Z(1)=',Z[1]);
    writeln(F0,'5.2.','A1=',A1,'A3=',A3,'B2=',B2,'Z(3)=',Z[3]);
    writeln(F0,'6.1.','A1=',A1,'B3=',B3,'A2=',A2,'Z(5)=',Z[5]);
    writeln(F0,'6.2.','A1=',A1,'B3=',B3,'B2=',B2,'Z(7)=',Z[7]);
    writeln(F0,'7.1.','B1=',B1,'A3=',A3,'A2=',A2,'Z(2)=',Z[2]);
    writeln(F0,'7.2.','B1=',B1,'A3=',A3,'B2=',B2,'Z(4)=',Z[4]);
    writeln(F0,'8.1.','B1=',B1,'B3=',B3,'A2=',A2,'Z(6)=',Z[6]);
    writeln(F0,'8.2.','B1=',B1,'B3=',B3,'B2=',B2,'Z(8)=',Z[8]);
    writeln(F0,'9.1.','A1=',A1,'A2=',A2,'A3=',A3,'Z(1)=',Z[1]);
    writeln(F0,'9.2.','A1=',A1,'A2=',A2,'B3=',B3,'Z(5)=',Z[5]);
    writeln(F0,'10.1.','A1=',A1,'B2=',B2,'A3=',A3,'Z(3)=',Z[3]);
    writeln(F0,'10.2.','A1=',A1,'B2=',B2,'B3=',B3,'Z(7)=',Z[7]);
    writeln(F0,'11.1.','B1=',B1,'A2=',A2,'A3=',A3,'Z(2)=',Z[2]);
    writeln(F0,'11.2.','B1=',B1,'A2=',A2,'B3=',B3,'Z(6)=',Z[6]);
    writeln(F0,'12.1.','B1=',B1,'B2=',B2,'A3=',A3,'Z(4)=',Z[4]);
    writeln(F0,'12.2.','B1=',B1,'B2=',B2,'B3=',B3,'Z(8)=',Z[8]);
    writeln('X=8. Model');
    writeln('Z(J)=',B[1],'+',B[2],'*I(J)+',B[3],'*P(J)+');
    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('X=16. Model');
    writeln('Z(J)=',B[1],'+',B[2],'*I(J)+',B[3],'*P(J)+');
    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('X=32. Model');
    writeln('Z(J)=',B[1],'+',B[2],'*I(J)+',B[3],'*P(J)+');
    writeln(F0,'X=32. Model');

                                             83