forloop_21.adb.npp

来自「This contains the following topics and m」· NPP 代码 · 共 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;