package body Compk24 is
    function K24 return Integer is
    begin
        return 24;
    end K24;
end Compk24;