-- ColorTest.adb from Cantor - colorscheme delek with ada.text_io; use ada.text_io; procedure table1 is start, finish: Integer; -- Beginning and end of table begin -- Output header put_line(" I I**2 I**3"); start := 2; for i in start .. finish loop put(i, 11); put(i**2, 11); new_line; end loop; numberOfRows := finish - start + 1; if numberOfRows <= 0 then put_line("Start:" & Integer'image(start)); elsif numberOfRows = 1 then put_line("Start and finish are the same!"); else put("Number of rows: "); end if; end table1;