program_20.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 program_20 is
letter : character;		-- i am getting error here vijay
begin
   while(true) loop
   Get(letter);
case letter is
when 'a'..'z'| 'A'..'Z' => put ("letter");
when '0'..'9' => put ("digit! value is"); put (letter);
when ''' | '"' | '`' => put ("quote mark");
when '&' => put ("ampersand");
when others => put ("something else");
end case;
end loop;
end program_20;