1 دددwith Ada.text_io;
 2 دددwith Ada.Integer_text_io;
 3 دقكàprocedure main is
 4 دد§ديدnum : integer;
 5 دد§ديدy  : float;
 6 دد§begin
 7 دد¨¹¹دnum := 5;
 8 دد¨¹¹دy := 98.3;
 9 دد¨¹¹±for i in 1..5 loop
10 دد§دد7¹¹دAda.text_io.put_line (" hi there ");
11 دد§دد5--   i := 3;
12 دد§دد°end loop;
13 دد§
14 دد¨¹¹±for i in 1..num loop
15 دد§دد7¹¹دAda.text_io.put_line (" bon jour ");
16 دد§دد7¹¹دnum := 3;
17 دد§دد°end loop;
18 دد§
19 دد§--  y := y + num;
20 دد©end main;