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

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

procedure CaseSample 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;
  
  --case文
  case Num is
    when 0 => Put_Line ( "無我の境地だね♪" ); 
    when 3 | 6 | 9 => Put_Line ( "ピヨォーん" );
    when 10 .. 100 => 
      Put_Line ( "結構ありがちな数値だよね♪" );
      Put_Line ( "そうそう複数行ある場合はこう書くんだよ♪" );
    when others => Put_Line ( "予想外の数値だね♪" );
  end case;
  
end CaseSample;