forloop_21.adb.npp

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

with text_io; use Text_io;

procedure forloop_21 is
   i : Integer:=10 ;
   subtype list is integer range 1..50;
  begin
 for i in reverse list loop
    put(integer'image(i));
end loop;
end;