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

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]);
 end;
B[21]:=SS/O[21];
SS:=0; O[22]:=0;
for J:=1 to X do
 begin
   SS:=SS+I[J]*U[J]*V[J]*Y[J];
   O[22]:=O[22]+(I[J]*U[J]*V[J])*(I[J]*U[J]*V[J]);
 end;
B[22]:=SS/O[22];
SS:=0; O[23]:=0;
for J:=1 to X do
 begin
   SS:=SS+P[J]*U[J]*V[J]*Y[J];
   O[23]:=O[23]+(P[J]*U[J]*V[J])*(P[J]*U[J]*V[J]);
 end;
B[23]:=SS/O[23];
SS:=0; O[24]:=0;
for J:=1 to X do
 begin
   SS:=SS+I[J]*P[J]*U[J]*V[J]*Y[J];
   O[24]:=O[24]+(I[J]*P[J]*U[J]*V[J])*(I[J]*P[J]*U[J]*V[J]);
 end;
B[24]:=SS/O[24];
SS:=0; O[25]:=0;
for J:=1 to X do
 begin
   SS:=SS+Q[J]*V[J]*Y[J];
   O[25]:=O[25]+(Q[J]*V[J])*(Q[J]*V[J]);
 end;
B[25]:=SS/O[25];
SS:=0; O[26]:=0;
for J:=1 to X do




                                                 163