Example

with Ada.Text_IO;
use Ada.Text_IO;

procedure Exercise is
   number : constant integer := 2248;

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

This would produce:

Number =  2248