1 دددwith Ada.text_io;
 2 دددwith Ada.Integer_text_io;
 3 دقكàprocedure main2 is
 4 دد§begin
 5 دد¨¹¹±for i in -1..1 loop
 6 دد§دد7¹¹دAda.Integer_text_io.put (i);
 7 دد§دد7¹¹دAda.text_io.new_line;
 8 دد§دد7¹¹±for i in 3..4 loop
 9 دد§دد5دد7¹¹دAda.Integer_text_io.put (i);
10 دد§دد5دد7¹¹دAda.text_io.new_line;
11 دد§دد5دد7¹¹±for i in reverse 6..5 loop
12 دد§دد5دد5دد7¹¹دAda.Integer_text_io.put (i);
13 دد§دد5دد5دد7¹¹دAda.text_io.new_line;
14 دد§دد5دد5دد°end loop;
15 دد§دد5دد7¹¹دAda.Integer_text_io.put (i);
16 دد§دد5دد7¹¹دAda.text_io.new_line;    
17 دد§دد5دد°end loop;
18 دد§دد7¹¹دAda.Integer_text_io.put (i);
19 دد§دد7¹¹دAda.text_io.new_line;     
20 دد§دد°end loop;
21 دد©end main2;