pragma Warnings (Off, "*array aggregate*");

with Ada.Wide_Wide_Text_IO; use Ada.Wide_Wide_Text_IO;

package body Nicht is

   procedure Nicht
   is begin

      Put_Line (Item => "Leider noch nicht verfügbar.");
      New_Line;

   end Nicht;

end Nicht;
