http://www.adaconcept.com/programs/integer_kiiras.adb
with Ada.Text_IO;

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