with Ada.Text_IO; use Ada.Text_IO; procedure Ada8 is type val is delta 0.01 digits 7 range -10.0..11.0; val1 : val:=10.98; val2 : val:=-8.0; begin Put_Line (val1'Img); Put_Line (val2'Img); Put_Line (val'Last'Img); end Ada8;