Теория и практика эффективного математического моделирования. Черный А.А. - 330 стр.

      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;
 16: begin
      GB810; GB850; GB940;
      end;
 32: begin
      GB810; GB850; GB940; GB1110;
      end;
  end;{case}
  writeln('      B(J) до анализа');
  writeln(F0,'     B(J) до анализа');
  for J:=1 to X do
    begin
      writeln('B(',J,')=',B[J]);
      writeln(F0,'B(',J,')=',B[J]);
    end;
  case X of
    2: GB2540;




                                    330