-- Rotter Gyorgy
-- prioritasos sor (rendezes, sor, verem)

with Ada.Text_IO;

with egeszeket_tartalmazo_prioritasossor;                            -- sajat (konkret) csomagpeldanyunk

use Ada.Text_IO;
use egeszeket_tartalmazo_prioritasossor;

procedure prioritasossor_teszt is

   s:prioritasossor_tipus;

begin
  Put_Line("Program indul");

  -- figyeljuk meg a sorrendet!
   betesz(s,1);
   betesz(s,7);
   betesz(s,8);
   betesz(s,9);
   betesz(s,5);
   betesz(s,6);
   betesz(s,10);
   betesz(s,10);
   betesz(s,1);
   betesz(s,1);
   betesz(s,4);
   betesz(s,4);
   betesz(s,12);
   betesz(s,11);

   kiir(s);
   new_line;

  Put_Line("Program vege");
end prioritasossor_teszt;