using_case_program.adb

This contains the following topics and more ADA versus C and Cplus plus Ada_training ADA 2005 for

with Text_IO;             use Text_IO;
with Ada.Integer_Text_IO; use Ada.Integer_Text_IO;
procedure using_case_program is

   count : Integer;

begin
   while (True) loop
      Get (count);
      case count is
         when 3 =>
            Put ("count is 3");
            New_Line;
         when 4 =>
            Put ("count is 4");
            New_Line;
         when 6 =>
            Put ("count is 6");
            New_Line;
         when others =>
            Put ("count is out of range");
            New_Line;
      end case;
   end loop;
end using_case_program;