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

   begin
     F[J]:=0; H[J]:=0; L[J]:=0; Z[J]:=0; KK5[J]:=0;
     KK6[J]:=0; KK7[J]:=0; J7[J]:=0; J8[J]:=0;
     JJ9[J]:=0;
   end;
case X of
2: begin
    vvod21;
    GB2480(A1,B1,J1,V1);
    writeln(F0,'V1=',V1);
    writeln('V1=',V1);
  end;
4: begin
    vvod21;
    GB2480(A1,B1,J1,V1);
    writeln(F0,'V1=',V1);
    writeln('V1=',V1);
    vvod22;
    GB2480(A2,B2,J2,V2);
    writeln(F0,'V2=',V2);
    writeln('V2=',V2);
    end;
8: begin
    vvod21;
    GB2480(A1,B1,J1,V1);
    writeln(F0,'V1=',V1);
    writeln('V1=',V1);
    vvod22;
    GB2480(A2,B2,J2,V2);
    writeln(F0,'V2=',V2);
    writeln('V2=',V2);
    vvod23;
    GB2480(A3,B3,J3,V3);
    writeln(F0,'V3=',V3);
    writeln('V3=',V3);
  end;
16: begin
    vvod21;
    GB2480(A1,B1,J1,V1);
    writeln(F0,'V1=',V1);
    writeln('V1=',V1);
    vvod22;
    GB2480(A2,B2,J2,V2);
    writeln(F0,'V2=',V2);
    writeln('V2=',V2);
    vvod23;
    GB2480(A3,B3,J3,V3);
    writeln(F0,'V3=',V3);
    writeln('V3=',V3);
    vvod24;
    GB2480(A4,B4,J4,V4);
    writeln(F0,'V4=',V4);

                                             145