--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;