with Ada.Text_Io, Ada.Integer_Text_Io;
use Ada.Text_Io, Ada.Integer_Text_Io;
procedure Ch2Problem9 is
   First:Integer := 0;
   Second:Integer := 0;
   i : Integer := 0;
begin
   Put("Please enter the first number: ");
   Get(First);
   Put("Please enter the second number: ");
   Get(Second);
   Put_Line("   X     X^2       X^3");
   Put_Line(" ---    ----     -----");
   for i in First .. Second loop
      Put(i, WIDTH => 4);
      Put(i**2, WIDTH => 8);
      Put(i**3, WIDTH => 10);
      New_Line;
   end loop;
end Ch2Problem9;