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

     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;
 if X=32 then
 begin
  for S:=1 to X do
    begin
     F[S]:=0; H[S]:=0; L[S]:=0;
     K[S]:=0; M[S]:=0; Z[S]:=0;
     writeln('Ввод F(',S,') H(',S,') L(',S,')');
     readln(F[S],H[S],L[S]);
     writeln('Ввод K(',S,') M(',S,')');
     readln(K[S],M[S]);
     GB2490; GB2500; GB2510;
     GB2520; GB2530; GB2670;
     writeln('Z(',S,')=',Z[S]);
    end;
  OUT_F_H_L(77);
 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=');
 readln(I0);
 if (I0=11) then goto 1;

                                           153