with useful;

use useful;

with ada.text_io;

with ada.integer_text_io;

procedure c is

i : integer;

-- i : integer := 35;

k : integer := 3;

m : integer := 7;

begin

for i in k .. m loop

ada.integer_text_io.put (i);

--m := 14;

exit;

end loop;

ada.integer_text_io.put (useful.i);

ada.integer_text_io.put (i);

end c;