using_case_program.adb.npp

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;