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

      begin
        SS:=SS+I[J]*U[J]*Y[J];
        O[11]:=O[11]+(I[J]*U[J])*(I[J]*U[J]);
      end;
    B[11]:=SS/O[11]; SS:=0; O[12]:=0;
    for J:=1 to X do
      begin
        SS:=SS+K[J]*U[J]*Y[J];
        O[12]:=O[12]+K[J]*U[J]*K[J]*U[J];
      end;
    B[12]:=SS/O[12];
  end;{GB1600}
procedure GB1670;
  begin
    SS:=0; O[13]:=0;
    for J:=1 to X do
      begin
        SS:=SS+V[J]*Y[J];
        O[13]:=O[13]+V[J]*V[J];
      end;
    B[13]:=SS/O[13]; SS:=0; O[14]:=0;
    for J:=1 to X do
      begin
        SS:=SS+I[J]*V[J]*Y[J];
        O[14]:=O[14]+I[J]*V[J]*I[J]*V[J];
      end;
    B[14]:=SS/O[14]; SS:=0; O[15]:=0;
    for J:=1 to X do
      begin
        SS:=SS+K[J]*V[J]*Y[J];
        O[15]:=O[15]+K[J]*V[J]*K[J]*V[J];
      end;
    B[15]:=SS/O[15];
  end;{GB1670}
procedure GB1730;
  begin
    SS:=0; O[16]:=0;
    for J:=1 to X do
      begin
        SS:=SS+L[J]*Y[J];
        O[16]:=O[16]+L[J]*L[J];
      end;
    B[16]:=SS/O[16]; SS:=0; O[17]:=0;
    for J:=1 to X do
      begin
        SS:=SS+P[J]*L[J]*Y[J];
        O[17]:=O[17]+(P[J]*L[J])*(P[J]*L[J]);
      end;
    B[17]:=SS/O[17]; SS:=0; O[18]:=0;
    for J:=1 to X do
      begin
        SS:=SS+Q[J]*L[J]*Y[J];
        O[18]:=O[18]+(Q[J]*L[J])*(Q[J]*L[J]);
      end;
    B[18]:=SS/O[18]; SS:=0; O[19]:=0;
    for J:=1 to X do
      begin
        SS:=SS+L[J]*U[J]*Y[J];




                                  356