The Ada Program: card_main.adb

  1 with Ada, Ada.Text_IO, Card_Package, Deck_Package;
  2 use Ada, Deck_Package;
  3 
  4 procedure Card_Main is
  5 begin
  6    Deck_Package.Shuffle;
  7    for I in 1..5 loop
  8       Card_Package.Put (Deck_Package.Deck(3*(I-1)+2));
  9       Text_IO.New_Line;
 10    end loop;
 11 end Card_Main;