Ada Golf

• Ada.Text_IOではなく単なるText_IOを使う
• Integer'Image(X)ではなくAda.Integer_Text_IO.Put(X,1);を使う
• (GCC限定) でもX'Imgで済む時はそっちを使う
• <> goto L;は他の長ったらしい制御文と比べ相対的に短い
• 頼み込んで-gnat05付けてもらったのでGet_Line(S,N);ではなくS:String:=Get_Line;を使う