use_of_exit.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;
procedure use_of_exit is
Count : Integer; --count as Integer object
   --Count_To : constant Integer := 10; --integer constant
   Count_To : Integer := 10; --integer constant
begin
Count := 1;
loop
Put( Integer'Image( Count ) );
exit when Count = Count_To; --Exit loop when ...
   Count := Count + 1;

end loop;
   New_Line;
   put("hai");
end;