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

     M[18]:=B5; F[19]:=A1; H[19]:=B2; L[19]:=A3; K[19]:=A4;
     M[19]:=B5; F[20]:=B1; H[20]:=B2; L[20]:=A3; K[20]:=A4;
     M[20]:=B5; F[21]:=A1; H[21]:=A2; L[21]:=B3; K[21]:=A4;
     M[21]:=B5; F[22]:=B1; H[22]:=A2; L[22]:=B3; K[22]:=A4;
     M[22]:=B5; F[23]:=A1; H[23]:=B2; L[23]:=B3; K[23]:=A4;
     M[23]:=B5; F[24]:=B1; H[24]:=B2; L[24]:=B3; K[24]:=A4;
     M[24]:=B5; F[25]:=A1; H[25]:=A2; L[25]:=A3; K[25]:=B4;
     M[25]:=B5; F[26]:=B1; H[26]:=A2; L[26]:=A3; K[26]:=B4;
     M[26]:=B5; F[27]:=A1; H[27]:=B2; L[27]:=A3; K[27]:=B4;
     M[27]:=B5; F[28]:=B1; H[28]:=B2; L[28]:=A3; K[28]:=B4;
     M[28]:=B5; F[29]:=A1; H[29]:=A2; L[29]:=B3; K[29]:=B4;
     M[29]:=B5; F[30]:=B1; H[30]:=A2; L[30]:=B3; K[30]:=B4;
     M[30]:=B5; F[31]:=A1; H[31]:=B2; L[31]:=B3; K[31]:=B4;
     M[31]:=B5; F[32]:=B1; H[32]:=B2; L[32]:=B3; K[32]:=B4;
     M[32]:=B5;
   end;
3:writeln('----------<Меню 1>------------');
 writeln('Если I0=6, то переход в начало');
 writeln('Если I0=7, то продолжение');
 write('I0=');
 readln(I0);
 if I0=6 then goto 1;
 writeln('Ввод величин показателей Y[J]');
 writeln(F0,'Показатели Y(J)');
 for J:=1 to X do
   begin
     write('Y(',J,')=');
     readln(Y[J]);
     writeln(F0,'Y(',J,')=',Y[J]);
   end;
 case X of
 2: GB2490;
 4: begin
     GB2490; GB2500;
    end;
 8: begin
     GB2490; GB2500; GB2510;
    end;
 16: begin
     GB2490; GB2500; GB2510; GB2520;
    end;
 32: begin
     GB2490; GB2500; GB2510;
     GB2520; GB2530;
     end;
 end;{case}
 GB780;
 case X of
 4: GB810;
 8: begin
     GB810; GB850;
    end;

                                          174