Ada.Integer_Text_IO的Put过程使用默认字段宽度填充空格。该过程的规范在《Ada语言参考手册》中定义为:
procedure Put(Item : in Num; Width : in Field := Default_Width; Base : in Number_Base := Default_Base);
给Width和Base参数指定默认值。您对Put的调用仅提供了形式参数Item的值。要消除左填充,只需指定所需的宽度即可。我建议您使用Ada命名符号进行通话,如下所示
Put(Item => N, Width => 1);