Вычислительная техника при моделировании. Черный А.А. - 78 стр.

begin
 repeat
  if (X=3)or(X=4)or(X=5) then I0:=61;
  if (X=9)or(X=12)or(X=15)or(X=16)or(X=20)or(X=25) then I0:=62;
  if X=27 then I0:=63;
  if I0=61 then
    begin
     case X of
       3: I0:=73;
       4: I0:=74;
       5: I0:=75;
     end;
  F3:=0; F4:=0; K5:=0;
  writeln('Фактор F(1)=F3+F4');
  for J:=1 to X do
    begin
     F[J]:=0; Z[J]:=0;
    end;
  writeln('F4-шаг приращения фактора');
  writeln('X-количество значений фактора');
  writeln('Ввод принятых величин X F3 F4');
  readln(X,F3,F4);
  writeln(F0,'F4-шаг приращения фактора');
  writeln(F0,'X-количество значений фактора');
  writeln(F0,'X=',X,' F3=',F3,' F4=',F4);
  for K5:=1 to X do
    begin
     F[K5]:=F3+K5*F4;
     writeln('F(',K5,')=',F[K5]);
    end;{for}
  case I0 of
    73:begin
        GB4150; GB4390;
      end;
    74:begin
        GB4210; GB4400;
      end;
    75:begin
        GB4290; GB4420;
      end;
    end;{case}
  for K5:=1 to X do
     writeln('Z(',K5,')=',Z[K5]);
  OUT_F_H_L(73);
  end;{if}
if I0=62 then
  begin
    case X of
     9: I0:=76;
     12:I0:=77;
     15:I0:=78;
     16:I0:=79;
     20:I0:=80;
     25:I0:=81;
    end;
  F3:=0; F4:=0; H3:=0;
  H4:=0; K5:=0;
  writeln('Фактор F(1)=F3+F4');
  writeln(F0,'Фактор F(1)=F3+F4');
    for J:=1 to X do
       begin
        F[J]:=0; H[J]:=0; Z[J]:=0;
       end;

                                                 78