with Ada.Text_IO; use Ada.Text_IO;

procedure Vann is

TYPE WaterType IS (farris, imsdal, voss);

Vann1:  WaterType ;

begin

    Put("The value of Vann1 is");
    Put ( Vann1'Last );

end Vann;