membership_operators_using_with_range.adb

来自「This contains the following topics and m」· ADB 代码 · 共 20 行

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
   while (true) loop
   put("enter the value:");
   Get(Mark);
   if Mark in Exam_Mark then
      Put ("Valid mark for exam");
       New_Line;
   else
      put("not in range");
      New_Line;
   end if;
   end loop;
end membership_operators_using_with_range;