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

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

procedure IfSample is

Num : Integer := 0;
Positive : Integer := 0;

begin

  --値を入力
  Put ("好きな数値を入力してEnterキーを押すピヨ♪：" ); 
  Ada.Integer_Text_IO.Get ( Num,  Positive);
  
  --入力値
  Put ( "入力された数値は" );
  Ada.Integer_Text_IO.Put ( Num, Width => 1 );
  Put ( "ピヨ♪" );
  New_Line;
  
  --If文
  if Num < 0 then
    Put_Line ( "マイナス指向だね♪" );
  elsif Num > 10_000 then
    Put_Line ( "気が大きいね♪" );
  end if;
  
end IfSample;