Улучшение способов получения пористых материалов и изделий на основе изобретений и моделирования. Черный А.А. - 182 стр.

 end;
procedure VVOD23;
 begin
  writeln('Ввод A3 B3 J3');
  readln(A3,B3,J3);
  writeln(F0,'A3=',A3,' B3=',B3);
  writeln(F0,'J3=',J3);
 end;
procedure VVOD24;
 begin
  writeln('Ввод A4 B4 J4');
  readln(A4,B4,J4);
  writeln(F0,'A3=',A3,' B3=',B3);
  writeln(F0,'J3=',J3);
 end;
procedure VVOD25;
 begin
  writeln('Ввод A5 B5 J5');
  readln(A5,B5,J5);
  writeln(F0,'A3=',A3,' B3=',B3);
  writeln(F0,'J3=',J3);
 end;
procedure GB780;
 begin
  SS:=0; O[1]:=0;
  for J:=1 to X do
   begin
     SS:=SS+Y[J];
     O[1]:=O[1]+1;
   end;
  B[1]:=SS/O[1];
  SS:=0; O[2]:=0;
  for J:=1 to X do
   begin
     SS:=SS+I[J]*Y[J];
     O[2]:=O[2]+I[J]*I[J];
   end;
  B[2]:=SS/O[2];
 end;
procedure GB810;
 begin
  SS:=0; O[3]:=0;
  for J:=1 to X do
   begin
     SS:=SS+P[J]*Y[J];
     O[3]:=O[3]+P[J]*P[J];
   end;
  B[3]:=SS/O[3];
  SS:=0; O[4]:=0;
  for J:=1 to X do
   begin
     SS:=SS+I[J]*P[J]*Y[J];

                                    182