Mine

procedure main is
    type prior_t is (Very_Low, Low, Medium, High, Very_High);

    package priorsor_p is new priority_queue_pkg(string(1..20),prior_t);
    use priorsor_p;
    with priorsor_p;
    use Ada.Text_IO;
    with Ada.Text_IO;
    use Ada.Text_IO.Integer_IO;

    n:natural;
begin
    putline("Add meg hány feladatot akarsz felvenni!");
    Integer_IO.get(n);

end main;