assessment_1.adb.npp

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

--Self-assessment
--What do the following fragments of Ada 95 code do?
with Ada.Integer_Text_IO; use Ada.Integer_Text_IO;
with Ada.Text_IO;         use Ada.Text_IO;
procedure assessment_1 is
   I : Integer;
begin
   I := 10;
   while I > 0 loop
      Put (I);
      I := I - 1;
   end loop;
   New_Line;
end assessment_1;