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

    writeln('V3=',V3);
    vvod24;
    GB2480(A4,B4,J4,V4);
    writeln(F0,'V4=',V4);
    writeln('V4=',V4);
   end;
32: 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);
    writeln('V4=',V4);
    vvod25;
    GB2480(A5,B5,J5,V5);
    writeln(F0,'V5=',V5);
    writeln('V5=',V5);
   end;
 0: goto 2;
  else goto 2;
end;{case}
if (X=2)or(X=4)or(X=8)or(X=16)or(X=32) then
   begin
    F[1]:=A1; F[2]:=B1;
   end;
if (X=4)or(X=8)or(X=16)or(X=32) then
   begin
    H[1]:=A2; H[2]:=A2; F[3]:=A1; H[3]:=B2;
    F[4]:=B1; H[4]:=B2;
   end;
if (X=8)or(X=16)or(X=32) then
   begin
    L[1]:=A3; L[2]:=A3; L[3]:=A3; L[4]:=A3; F[5]:=A1;
    H[5]:=A2; L[5]:=B3; F[6]:=B1; H[6]:=A2; L[6]:=B3;
    F[7]:=A1; H[7]:=B2; L[7]:=B3; F[8]:=B1; H[8]:=B2;
    L[8]:=B3;
   end;
if (X=16)or(X=32) then
   begin
    K[1]:=A4; K[2]:=A4; K[3]:=A4; K[4]:=A4; K[5]:=A4;
    K[6]:=A4; K[7]:=A4; K[8]:=A4; F[9]:=A1; H[9]:=A2;
    L[9]:=A3; K[9]:=B4; F[10]:=B1; H[10]:=A2; L[10]:=A3;

                                          92