Cacher is the code snippet organizer for pro developers

with Ada.Text_IO;
procedure Weather_02 is
  type Weather is (Sunny, Rainy, Snowy, Bad);
    function Philadelphia return weather is 
    begin
        return Sunny;
    end Philadelphia;
begin
    Ada.Text_IO.Put("It's always ");
    Ada.Text_IO.Put(weather'Image(Philadelphia));
    Ada.Text_IO.Put(" in Philadelphia");
end Weather_02;