program_6.adb.npp

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

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;