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

    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;
   if I0=18 then goto 4;
   if (I0=19)or(I0=10) then goto 5;
   if I0=35 then goto 3;
   if I0=14 then
     begin
       GB7000;
       goto 2;
     end;
   writeln('Конец работы');
   close(F0);
  end.
end.{Конец программы}

unit tpgl1_2;
Interface
type artp=array[1..50] of real;
 var
   J6,K5,S,J,I0,X,N0,K9,K4,F8,F9:integer;
   G1,T1,A1,C1,E1,D1,B1,J1,O1,A2,E2,B2,J2,O2,A3:real;
   H1,K1,L1,F1,M1,I1,P1,E3,B3,J3,O3,V1,U1,Q1,V2,U2,Q2:real;

                                            99