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

    case X of
      2: GB2540;
      4: GB2550;
      8: GB2570;
     16: GB2600;
     32: GB2670;
    end;{case}
    writeln('Расчетные величины показателя');
    writeln(' Z(J) после анализа B(J)');
    writeln(F0,'Расчетные величины показателя');
    writeln(F0,'Z(J) после анализа B(J)');
    for J:=1 to X do
      begin
        writeln('Z(',J,')=',Z[J]);
        writeln(F0,'Z(',J,')=',Z[J]);
      end;
    SS:=0;
    for J:=1 to X do
      SS:=SS+(Z[J]-Y[J])*(Z[J]-Y[J]);
      F6:=SS/(F9*U9);
      writeln('Расчетная величина F-критерия F6=',F6);
      writeln(F0,'Расчетная величина F-критерия F6=',F6);
      if F6<=F7 then
        begin
          writeln('Адекватно, так как F6<=F7');
          writeln(F0,'Адекватно, так как F6<=F7');
        end;
      if F6>F7 then
        begin
          writeln('Неадекватно, так как F6>F7');
          writeln(F0,'Неадекватно, так как F6>F7');
        end;
    case X of
     2: OUT_F_H_L(73);
     4: OUT_F_H_L(74);
     8: OUT_F_H_L(75);
     16: OUT_F_H_L(76);
     32: OUT_F_H_L(77);
    end;
   end;
5:writeln('----------<Меню 3--------------');
  writeln('Если I0=7, то проверка точности');
  writeln('и расчеты по модели');
  writeln('Если I0=8, то переход в начало');
  writeln('Если I0=17, то математическая модель');
  writeln('Если I0=22, то вычисления');
  writeln('показателей Z(K5) с использованием');
  writeln('циклов и построение графиков');
  writeln('Если I0=9, то выход из программы');
  writeln('Если I0=25, то переход к меню 1');
  writeln('Если I0=27, то переход к меню 2');
  write('Ввод I0=');
  readln(I0);
  if I0=8 then goto 1;
  if I0=9 then goto 2;
  if I0=25 then goto 3;
  if I0=27 then goto 4;
  if I0=17 then begin GB2820; goto 2; end;




                                   333