forloop_21.adb

来自「Sample ADA program...How to create hello」· ADB 代码 · 共 11 行

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;