procedure Trivial is

begin
   null;
end Trivial;




-- Result of execution

-- (There is no output from this program)