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

        O[19]:=O[19]+(L[J]*U[J])*(L[J]*U[J]);
      end;
    B[19]:=SS/O[19]; SS:=0; O[20]:=0;
    for J:=1 to X do
      begin
        SS:=SS+L[J]*V[J]*Y[J];
        O[20]:=O[20]+(L[J]*V[J])*(L[J]*V[J]);
      end;
    B[20]:=SS/O[20];
  end;{GB1730}
procedure GB1830;
  begin
    SS:=0; O[21]:=0;
    for J:=1 to X do
      begin
        SS:=SS+M[J]*Y[J];
        O[21]:=O[21]+M[J]*M[J];
      end;
    B[21]:=SS/O[21]; SS:=0; O[22]:=0;
    for J:=1 to X do
      begin
        SS:=SS+P[J]*M[J]*Y[J];
        O[22]:=O[22]+(P[J]*M[J])*(P[J]*M[J]);
      end;
    B[22]:=SS/O[22]; SS:=0; O[23]:=0;
    for J:=1 to X do
      begin
        SS:=SS+Q[J]*M[J]*Y[J];
        O[23]:=O[23]+(Q[J]*M[J])*(Q[J]*M[J]);
      end;
    B[23]:=SS/O[23]; SS:=0; O[24]:=0;
    for J:=1 to X do
      begin
        SS:=SS+U[J]*M[J]*Y[J];
        O[24]:=O[24]+(U[J]*M[J])*(U[J]*M[J]);
      end;
    B[24]:=SS/O[24]; SS:=0; O[25]:=0;
    for J:=1 to X do
      begin
        SS:=SS+M[J]*V[J]*Y[J];
        O[25]:=O[25]+(M[J]*V[J])*(M[J]*V[J]);
      end;
    B[25]:=SS/O[25];
  end;{GB1830}
procedure GB1930;
  begin
    SS:=0; O[13]:=0;
    for J:=1 to X do
      begin
        SS:=SS+L[J]*Y[J];
        O[13]:=O[13]+L[J]*L[J];
      end;
    B[13]:=SS/O[13]; SS:=0; O[14]:=0;
    for J:=1 to X do
      begin
        SS:=SS+P[J]*L[J]*Y[J];
        O[14]:=O[14]+(P[J]*L[J])*(P[J]*L[J]);
      end;




                                  357