forloop_21.adb

Sample ADA program...How to create hello world....programs on IF loop and switch case

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