DEFINITION Pascaline;

  TYPE
    Register = RECORD (* регистры машины *)
                 ind1*   : SHORTINT; 
                 ind2*   : SHORTINT; 
                 int*    : LONGINT;  
                 result* : LONGINT;  
               END;
  VAR
    r*              : Register;  
    sOn-           : BOOLEAN;   
    sBadIndex-      : BOOLEAN;   
    sPrimeIsEmpty-  : BOOLEAN;   

(* —- команды машины *)

  PROCEDURE On;  
  PROCEDURE Off; 

  PROCEDURE C;  (* C(i,j) - вычисление бин. коэфф. *)
  PROCEDURE F;  (* F(i)   - i-e число Фибоначчи   *)

  PROCEDURE InitPrime;    
  PROCEDURE FirstPrime;   
  PROCEDURE NextPrime;    
  PROCEDURE CountPrime;   

(* —- настройка машины *)

  TYPE
    ProcType1 = PROCEDURE (i: SHORTINT; j: SHORTINT):
LONGINT;
    ProcType2 = PROCEDURE (i: SHORTINT): LONGINT;

  VAR 
    PascalTriangle* : ProcType1;  
    Fibonacci*      : ProcType2;  

  PROCEDURE PascalTriangle0 (i: SHORTINT; j: SHORTINT):
LONGINT;
  PROCEDURE PascalTriangle1 (i: SHORTINT; j: SHORTINT):
LONGINT;
  PROCEDURE PascalTriangle2 (i: SHORTINT; j: SHORTINT):
LONGINT;

  PROCEDURE Fibonacci0 (i: SHORTINT): LONGINT;
  PROCEDURE Fibonacci1 (i: SHORTINT): LONGINT;
  PROCEDURE Fibonacci2 (i: SHORTINT): LONGINT;
  PROCEDURE Fibonacci3 (i: SHORTINT): LONGINT;
  PROCEDURE Fibonacci4 (i: SHORTINT): LONGINT;

END Pascaline.
403