Применение вычислительной техники при моделировании - 73 стр.

  readln(A2,C2,D2,B2,J2,O2,P2);
  writeln(F0,'A2=',A2,' C2=',C2,' D2=',D2);
  writeln(F0,'B2=',B2,' J2=',J2,' O2=',O2);
  writeln(F0,'P2=',P2);
 end;{VVOD42}
procedure VVOD51;
 begin
  writeln('Ввод A1 C1 E1 D1 B1 J1 O1 P1 T1');
  readln(A1,C1,E1,D1,B1,J1,O1,P1,T1);
  writeln(F0,'A1=',A1,' C1=',C1,' E1=',E1);
  writeln(F0,'D1=',D1,' B1=',B1,' J1=',J1);
  writeln(F0,'O1=',O1,' P1=',P1,' T1=',T1);
 end;{VVOD51}
procedure VVOD52;
 begin
  writeln('Ввод A2 C2 E2 D2 B2 J2 O2 P2 T2');
  readln(A2,C2,E2,D2,B2,J2,O2,P2,T2);
  writeln(F0,'A2=',A2,' C2=',C2,' E2=',E2);
  writeln(F0,'D2=',D2,' B2=',B2,' J2=',J2);
  writeln(F0,'O2=',O2,' P2=',P2,' T2=',T2);
 end;{VVOD52}
procedure PR_MOD;
 begin
  case X of
 3: begin
    F[1]:=A1; F[2]:=B1; F[3]:=E1;
   end;
 4: begin
    F[1]:=A1; F[2]:=B1; F[3]:=C1; F[4]:=D1;
   end;
 5: begin
    F[1]:=A1; F[2]:=B1; F[3]:=C1; F[4]:=D1; F[5]:=E1;
   end;
 9: begin
    F[1]:=A1; H[1]:=A2; F[2]:=B1; H[2]:=A2; F[3]:=A1;
    H[3]:=B2; F[4]:=B1; H[4]:=B2; F[5]:=A1; H[5]:=E2;
    F[6]:=B1; H[6]:=E2; F[7]:=E1; H[7]:=A2; F[8]:=E1;
    H[8]:=B2; F[9]:=E1; H[9]:=E2;
   end;
 12:begin
    F[1]:=A1; H[1]:=A2; F[2]:=B1; H[2]:=A2; F[3]:=A1;
    H[3]:=B2; F[4]:=B1; H[4]:=B2; F[5]:=E1; H[5]:=A2;
    F[6]:=E1; H[6]:=B2; F[7]:=A1; H[7]:=C2; F[8]:=B1;
    H[8]:=D2; F[9]:=A1; H[9]:=D2; F[10]:=B1; H[10]:=C2;
    F[11]:=E1; H[11]:=C2; F[12]:=E1; H[12]:=D2;
   end;
 15:begin
    F[1]:=A1; H[1]:=A2; F[2]:=B1; H[2]:=A2; F[3]:=A1;
    H[3]:=B2; F[4]:=B1; H[4]:=B2; F[5]:=A1; H[5]:=E2;
    F[6]:=B1; H[6]:=E2; F[7]:=E1; H[7]:=A2; F[8]:=E1;
    H[8]:=B2; F[9]:=E1; H[9]:=E2; F[10]:=A1; H[10]:=C2;
    F[11]:=B1; H[11]:=D2; F[12]:=A1; H[12]:=D2; F[13]:=B1;
    H[13]:=C2; F[14]:=E1; H[14]:=C2; F[15]:=E1; H[15]:=D2;
   end;
16:begin
    F[1]:=A1; H[1]:=A2; F[2]:=B1; H[2]:=A2; F[3]:=A1;
    H[3]:=B2; F[4]:=B1; H[4]:=B2; F[5]:=A1; H[5]:=C2;
    F[6]:=B1; H[6]:=C2; F[7]:=A1; H[7]:=D2; F[8]:=B1;
    H[8]:=D2; F[9]:=C1; H[9]:=A2; F[10]:=C1; H[10]:=C2;
    F[11]:=C1; H[11]:=D2; F[12]:=C1; H[12]:=B2; F[13]:=D1;
    H[13]:=A2; F[14]:=D1; H[14]:=C2; F[15]:=D1; H[15]:=D2;
    F[16]:=D1; H[16]:=B2;
  end;

                                                  73