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

    B[13]:=SS/O[13];
    SS:=0; O[14]:=0;
    for J:=1 to X do
      begin
        SS:=SS+I[J]*U[J]*Q[J]*Y[J];
        O[14]:=O[14]+(I[J]*U[J]*Q[J])*(I[J]*U[J]*Q[J]);
      end;
    B[14]:=SS/O[14];
    SS:=0; O[15]:=0;
    for J:=1 to X do
      begin
        SS:=SS+P[J]*U[J]*Q[J]*Y[J];
        O[15]:=O[15]+(P[J]*U[J]*Q[J])*(P[J]*U[J]*Q[J]);
      end;
    B[15]:=SS/O[15];
    SS:=0; O[16]:=0;
    for J:=1 to X do
      begin
        SS:=SS+I[J]*P[J]*U[J]*Q[J]*Y[J];
        O[16]:=O[16]+(I[J]*P[J]*U[J]*Q[J])*(I[J]*P[J]*U[J]*Q[J]);
      end;
    B[16]:=SS/O[16];
  end;{GB940}
procedure GB1110;
  begin
    SS:=0; O[17]:=0;
    for J:=1 to X do
      begin
        SS:=SS+V[J]*Y[J];
        O[17]:=O[17]+V[J]*V[J];
      end;
    B[17]:=SS/O[17];
    SS:=0; O[18]:=0;
    for J:=1 to X do
      begin
        SS:=SS+I[J]*V[J]*Y[J];
        O[18]:=O[18]+(I[J]*V[J])*(I[J]*V[J]);
      end;
    B[18]:=SS/O[18];
    SS:=0; O[19]:=0;
    for J:=1 to X do
      begin
        SS:=SS+P[J]*V[J]*Y[J];
        O[19]:=O[19]+(P[J]*V[J])*(P[J]*V[J]);
      end;
    B[19]:=SS/O[19];
    SS:=0; O[20]:=0;
    for J:=1 to X do
      begin
        SS:=SS+I[J]*P[J]*V[J]*Y[J];
        O[20]:=O[20]+(I[J]*P[J]*V[J])*(I[J]*P[J]*V[J]);
      end;
    B[20]:=SS/O[20];
    SS:=0; O[21]:=0;
    for J:=1 to X do
      begin
        SS:=SS+U[J]*V[J]*Y[J];
        O[21]:=O[21]+(U[J]*V[J])*(U[J]*V[J]);




                                    339