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

           line(round(KK7[K5]-X0),round(Y0),
           round(KK7[K5]-X0),round(Y0-KK8[K5]));
         end;
       J6:=0; J6:=X-1;
       J9:=0; K7:=0; K8:=0; J9:=K3*J5;
       for K5:=1 to J6 do
         begin
           KK7[K5]:=K5*K0;
           KK8[K5]:=K3*KK6[K5];
           J7[K5]:=(K5+1)*K0;
           J8[K5]:=K3*KK6[K5+1];
           line(round(KK7[K5]-X0),round(Y0),
           round(J7[K5]-X0),round(Y0));
           line(round(KK7[K5]-X0),round(Y0-J9),
           round(J7[K5]-X0),round(Y0-J9));
           line(round(KK7[K5]-X0),round(Y0-KK8[K5]),
           round(J7[K5]-X0),round(Y0-J8[K5]));
         end;

       readln;
       closegraph;
   writeln('Ввод I0=75, то повторение построения графика');
   writeln('Ввод I0=85, то полное повторение построения графика');
   writeln('Ввод I0=95, то выход из программы');
   write('I0=');
   readln(I0);

   if I0=75 then goto 1;
  until not(I0=85);
  writeln(F0,'Построение графика');
  writeln(F0,'Зависимость KK6(K5) от фактора');
  writeln(F0,'KK6(K5)-относительная величина показателя');
  writeln(F0,'K5-номер величины фактора и показателя');

   writeln(F0,'Величина фактора задана');
   writeln(F0,'Ввод X0-отступ вправо по оси X');
   writeln(F0,'(Предпочтительно X=5)');
   writeln(F0,'Y0-отступ вниз по оси Y');
   writeln(F0,'(Предпочтительно Y0=180)');
   writeln(F0,'K0-длина графика по оси X');
   writeln(F0,'K3-высота графика по оси Y');
   writeln(F0,'X0=',X0,' Y0=',Y0);
   writeln(F0,'K0=',K0,' K3=',K3);
   writeln(F0,'где');
   writeln(F0,'X0-отступ вправо по оси X');
   writeln(F0,'Y0-отступ вниз по оси Y');
   writeln(F0,'K0-длина графика по оси X');
   writeln(F0,'K3-длина графика по оси Y');
  end;{GB7000}
procedure tablF9;
    begin
     write('              Значения F7 для 5% уровня');
     writeln('значимости');
     write('┌───┬──────────────────────────────────');
     writeln('───────────────────────┐');
     write('│   │                         F9       ');
     writeln('                       │');
     write('│F8 ├────┬─────┬─────┬─────┬────┬─────┬');




                                    375