membership_operators.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;
procedure membership_operators is
 ch :character;

begin
if ch in 'A' .. 'Z' then
put("character is upper letter");
else
put("character is lower letter");
new_line;
end if;
   end;