1 2 3 4 5 6
package Vect5_Pkg is function K return Positive; function N return Positive; end Vect5_Pkg;