membership_operators_using_with_range.adb.npp

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

with Ada.Text_Io, Ada.Integer_Text_Io;
use Ada.Text_Io, Ada.Integer_Text_Io;
procedure membership_operators_using_with_range is
subtype Exam_Mark is Integer range 0 .. 100;
Mark : Integer;
begin
Get( Mark );
if Mark in Exam_Mark then
Put("Valid mark for exam"); New_Line;
end if;
end;