Комплекс компьютерных программ эффективного математического моделирования на языке Турбо Паскаль. Черный А.А. - 207 стр.

  J6:=0;J9:=0;S:=0;
  writeln('Если X=0, то выход из программы');
  write('X=');readln(X);
  writeln(F0,'X=',X);
  for J:=1 to X do
    begin
      F[J]:=0; H[J]:=0; L[J]:=0; Z[J]:=0; KK5[J]:=0;
      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;




                                                       207