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

Implementation
function ste(Q,A:real):real;
  {Функция возведения в степень}
 begin
   if A<0 then exit
     else
      begin
        if Q=0 then A:=1E-20;
        if A=0
          then ste:=1
          else ste:=exp(A*ln(Q));
      end;
 end;{ste}
procedure VVOD21;
 begin
   writeln('Ввод A1 B1 J1');
   readln(A1,B1,J1);
   writeln(F0,'A1=',A1,' B1=',B1);
   writeln(F0,'J1=',J1);
 end;
procedure VVOD22;
 begin
   writeln('Ввод A2 B2 J2');
   readln(A2,B2,J2);
   writeln(F0,'A2=',A2,' B2=',B2);
   writeln(F0,'J2=',J2);
 end;
procedure VVOD23;
 begin
   writeln('Ввод A3 B3 J3');
   readln(A3,B3,J3);
   writeln(F0,'A3=',A3,' B3=',B3);
   writeln(F0,'J3=',J3);
 end;
procedure VVOD24;
 begin
   writeln('Ввод A4 B4 J4');
   readln(A4,B4,J4);
   writeln(F0,'A3=',A3,' B3=',B3);
   writeln(F0,'J3=',J3);
 end;
procedure VVOD25;
 begin
   writeln('Ввод A5 B5 J5');
   readln(A5,B5,J5);
   writeln(F0,'A3=',A3,' B3=',B3);
   writeln(F0,'J3=',J3);
 end;
procedure GB780;
 begin
   SS:=0; O[1]:=0;
   for J:=1 to X do
     begin
      SS:=SS+Y[J];
      O[1]:=O[1]+1;
     end;
   B[1]:=SS/O[1];




                                     135