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

 end;
 if X=4 then
 begin
  for S:=1 to X do
    begin
     F[S]:=0; H[S]:=0; Z[S]:=0;
     writeln('Ввод F(',S,') H(',S,')');
     readln(F[S],H[S]);
     GB2490; GB2500; GB2550;
     writeln('Z(',S,')=',Z[S]);
    end;
  OUT_F_H_L(74);
 end;
 if X=8 then
 begin
  for S:=1 to X do
    begin
     F[S]:=0; H[S]:=0;
     Z[S]:=0; L[S]:=0;
     writeln('Ввод F(',S,') H(',S,') L(',S,')');
     readln(F[S],H[S],L[S]);
     GB2490; GB2500; GB2510; GB2570;
     writeln('Z(',S,')=',Z[S]);
    end;
  OUT_F_H_L(75);
 end;
 if X=16 then
 begin
  for S:=1 to X do
    begin
     F[S]:=0; H[S]:=0; K[S]:=0;
     L[S]:=0; Z[S]:=0;
     writeln('Ввод F(',S,') H(',S,') L(',S,') K(',S,')');
     readln(F[S],H[S],L[S]);
     GB2490; GB2500; GB2510;
     GB2520; GB2600;
     writeln('Z(',S,')=',Z[S]);
    end;
  OUT_F_H_L(76);
 end;
2:writeln('----------------<Меню 4------------------');
 writeln('Если I0=10, то проверка точности');
 writeln('и расчеты по модели');
 writeln('Если I0=14, то вычисления ');
 writeln('показателей Z(K5) с использованием');
 writeln('циклов');
 writeln('Если I0=35, то переход к меню 1');
 writeln('Если I0=18, то переход к меню 2');
 writeln('Если I0=19, то переход к меню 3');
 writeln('Если I0=50, то переход в начало программы');
 writeln('Если I0=44, то выход из программы');
 write('Ввод I0=');

                                            73