with Ada.Text_IO; procedure integer_kiiras(i:in integer) is begin Ada.Text_IO.Put(integer'image(i)); end integer_kiiras;