RosettaCodeData/Task/String-length/Ada/string-length-1.ada

Str    : String := "Hello World";
Length : constant Natural := Str'Size / 8;