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

       KK6[J]:=0; KK7[J]:=0; J7[J]:=0; J8[J]:=0;
       JJ9[J]:=0;
     end;
  VV_DAN;
  if X=0 then goto 2;
  PR_MOD;
3:writeln('----------<Меню 1>------------');
  writeln('Если I0=6, то переход в начало');
  writeln('Если I0=7, то продолжение и');
  writeln('ввод величин показателей Y(J)');
  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
    3: GB4150;
    4: GB4210;
    5: GB4290;
    9: begin
         GB4150; GB4170;
       end;
    12:begin
         GB4150; GB4250;
       end;
    15:begin
         GB4150; GB4340;
       end;
    16:begin
         GB4210; GB4250;
       end;
    20:begin
         GB4210; GB4340;
       end;
    25:begin
         GB4290; GB4340;
       end;
    27:begin
         GB4150; GB4170; GB4190;
       end;
    end;{case}
  GB1410;
  case X of
    4: GB2000;
    5: begin GB2000; GB2020; end;
    9: begin GB1480; end;
    12:begin GB1480; GB1600; end;
    15:begin GB1480; GB1600; GB1670; end;
    16:begin GB1480; GB1600; GB1930; end;
    20:begin GB1480; GB1600; GB1670; GB1730; end;
    25:begin GB1480; GB1600; GB1670; GB1730; GB1830; end;
    27:begin GB1480; GB2040; end;
  end;




                                   347