with ada.text_io; use ada.text_io;

with ada.integer_text_io; use ada.integer_text_io;

procedure table2 is

    start: Integer := 2;
    finish: Integer := 10;

    procedure putHeader is
    begin
        put_line("          I       I**2       I**3");
        put_line("        --------------------------");
            start := 0;
    end putHeader;


    procedure putRows(s: Integer; f: Integer) is
    begin

        for i in s .. f loop
            put(i);
            put(i ** 2);
            put(i ** 3);

            new_line;
        end loop;

    end putRows;

    -- Variables for main routine (ie table2)
    -- start: Integer := 2;
    -- finish: Integer := 10;


begin  -- Beginning of table2

    put(start); new_line;

    putHeader;
    
    putRows(start, finish);

    put(start); new_line;

end table2;