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

    B[14]:=SS/O[14]; SS:=0; O[15]:=0;
    for J:=1 to X do
      begin
        SS:=SS+Q[J]*L[J]*Y[J];
        O[15]:=O[15]+(Q[J]*L[J])*(Q[J]*L[J]);
      end;
    B[15]:=SS/O[15]; SS:=0; O[16]:=0;
    for J:=1 to X do
      begin
        SS:=SS+L[J]*U[J]*Y[J];
        O[16]:=O[16]+(L[J]*U[J])*(L[J]*U[J]);
      end;
    B[16]:=SS/O[16];
  end;{GB1930}
procedure GB2000;
  begin
    SS:=0; O[4]:=0;
    for J:=1 to X do
      begin
        SS:=SS+L[J]*Y[J];
        O[4]:=O[4]+L[J]*L[J];
      end;
    B[4]:=SS/O[4];
  end;{GB2000}
procedure GB2020;
  begin
    SS:=0; O[5]:=0;
    for J:=1 to X do
      begin
        SS:=SS+M[J]*Y[J];
        O[5]:=O[5]+M[J]*M[J];
      end;
    B[5]:=SS/O[5];
  end;{GB2020}
procedure GB2040;
  begin
    SS:=0; O[10]:=0;
    for J:=1 to X do
      begin
        SS:=SS+U[J]*Y[J];
        O[10]:=O[10]+U[J]*U[J];
      end;
    B[10]:=SS/O[10]; SS:=0; O[11]:=0;
    for J:=1 to X do
      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+P[J]*U[J]*Y[J];
        O[12]:=O[12]+(P[J]*U[J])*(P[J]*U[J]);
      end;
    B[12]:=SS/O[12]; SS:=0; O[13]:=0;
    for J:=1 to X do
      begin
        SS:=SS+I[J]*P[J]*U[J]*Y[J];




                                  358