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

      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);
      writeln('V4=',V4);
     end;
   0: goto 2;
    else goto 2;
  end;{case}
  if (X=2)or(X=4)or(X=8)or(X=16) then
     begin
      F[1]:=A1; F[2]:=B1;
     end;
  if (X=4)or(X=8)or(X=16) 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) 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) 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;
      K[10]:=B4; F[11]:=A1; H[11]:=B2; L[11]:=A3; K[11]:=B4;
      F[12]:=B1; H[12]:=B2; L[12]:=A3; K[12]:=B4; F[13]:=A1;
      H[13]:=A2; L[13]:=B3; K[13]:=B4; F[14]:=B1; H[14]:=A2;
      L[14]:=B3; K[14]:=B4; F[15]:=A1; H[15]:=B2; L[15]:=B3;
      K[15]:=B4; F[16]:=B1; H[16]:=B2; L[16]:=B3; K[16]:=B4;
     end;
3:writeln('----------<Меню 1>------------');
  writeln('Если I0=6, то переход в начало');
  writeln('Если I0=7, то продолжение');
  write('I0=');
  readln(I0);
  if I0=6 then goto 1;
  writeln('Ввод величин показателей Y[J]');




                                                   15