function Fakultet(Val : in Natural) return Positive is
   I : Integer;
   begin
      if Val = 0 then
	 return 1;
      elsif Val >= 1 then
	 return Val * Fakultet(Val - 1);
      end if;
      end Fakultet;