Example

with Ada.Text_IO;
use Ada.Text_IO;

procedure Welcome is
   subtype int is Integer;
   
   number : int := 10;

begin
   Put_Line("Number = " & integer'image(number));
end Welcome;

This would produce:

Number =  10