package Poz_Rac2 is type Pozrac is private; function "+" ( P : Pozrac; Q : Pozrac ) return Pozrac; function "-" ( P : Pozrac; Q : Pozrac ) return Pozrac; function "*" ( P, Q : Pozrac ) return Pozrac; function "*" ( P : Pozrac; N : Positive ) return Pozrac; function "*" ( N : Positive; P : Pozrac ) return Pozrac; function "/" ( Számláló, Nevező : Positive ) return Pozrac; function "/" ( P, Q : Pozrac ) return Pozrac; function "/" ( P : Pozrac; N : Positive ) return Pozrac; function "/" ( N : Positive; P : Pozrac ) return Pozrac; function Számláló ( P : Pozrac ) return Positive; function Nevező ( P : Pozrac ) return Positive; private type Pozrac is record Számláló, Nevező : Positive; end record; end Poz_Rac2;