with Ada.Text_IO; use Ada.Text_IO; with Ada.Unchecked_Conversion; with System.Address_Image; procedure Hello is package P is type Intf is interface; procedure Ex1 (Obj : access Intf) is abstract; type Intf_Access is access all Intf'Class; …