在没有被告知的情况下，什么可以使简单ada程序的输出缩进

Question

我目前正在learn.adacore.com上学习Ada教程，现在我正在学习第二个示例：读取和输出一个整数。由于复制粘贴是为那些不想学习语法的人准备的，所以我手动键入了大部分代码(其中一些是由gnat-gps生成的，但我现在使用的是vim(。

我编译并运行了这个程序，令人惊讶的是，输出的第二行大约缩进了一个选项卡。为什么？

这是代码：

With Ada.Text_IO;
Use Ada.Text_IO;
With Ada.Integer_Text_IO;
use Ada.Integer_Text_IO;
procedure Main is
N : Integer;
begin
--  Insert code here.
Put("Enter an integer value: ");
Get(N);
if N>0 then
Put (N);
Put_Line(" is a positive number");
end if;
end Main;

(如何突出显示语法？(

以下是输出的样本(第一个1被输入(：

Enter an integer value: 1
1 is a positive number

Answer 1

Ada.Integer_Text_IO中的Put过程使用用空格填充的默认字段宽度。该程序的规范在Ada语言参考手册中定义为：

procedure Put(Item  : in Num;
Width : in Field := Default_Width;
Base  : in Number_Base := Default_Base);

"宽度"one_answers"基准"参数为默认值。对Put的调用只为形式参数Item提供了一个值。要消除左侧填充，只需指定所需的宽度。我建议你在中使用Ada命名符号进行调用

Put(Item => N, Width => 1);