無差別に技術をついばむ鳥

with Ada.Text_Io; use Ada.Text_Io;
with Ada.Integer_Text_IO;
with Ada.Float_Text_Io;

procedure Literal is
begin

  --String
  Put_Line ( "文字列" );
  
  --Char
  Put ( "キャラクタ：" );
  Put ( 'A' );
  New_Line;--改行
  
  --Integer
  Put_Line ( "様々な数値表現で17を指定するピヨッ♪" );
  Put( "2#1_0001#:" );
  Ada.Integer_Text_IO.Put(2#1_0001#, Width => 1); --2進
  New_Line;

  Put( "4#41#:" );
  Ada.Integer_Text_IO.Put(04#101#, Width => 1); --4進
  New_Line;  
  
  Put( "8#21#:" );
  Ada.Integer_Text_IO.Put(8#21#, Width => 1); --8進
  New_Line;  

  Put( "17:" );
  Ada.Integer_Text_IO.Put(17, Width => 1); --10進
  New_Line;  
  
  Put( "16#11#:" );
  Ada.Integer_Text_IO.Put(16#11#, Width => 1); --16進
  New_Line;
  
  --Real：浮動小数点
  Ada.Float_Text_IO.Put(0.36, Fore => 1, Aft => 2, Exp => 0); 
end Literal;