with Ada.Text_IO;

procedure Main is
begin
   for i in 1 .. 10 loop
      Ada.Text_IO.Put_Line("I'm the number" & Integer'Image(i));
   end loop;
end Main;