program_6.adb.npp

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

with Ada.Text_IO; use Ada.Text_IO;
with Ada.Integer_Text_IO; use Ada.Integer_Text_IO;

procedure Age is

	Age :integer range 0..100;

begin
	Put("hello, how old are you ? ");
   	Get(Age); -- might cause an exception if value entered is outside range

if Age < 18 then

   put_line("ha! you're just a baby");

elsif Age <= 10#6_0# then -- note spelling of elsif
	put_line("working hard?");
else
   put_line("Now take it easy old fella!");
   end if;
exception
when constraint_error =>
	put_line("sorry only ages 0..100 are accepted");
end age; -- procedure name is optional at end;