The Ada Program: main.adb

  1 procedure Main is
  2 
  3   X: Integer := 4;
  4 
  5 begin
  6 
  7    for I in 3..7 loop
  8       X := X+6;
  9    end loop;
 10 
 11 end Main;