with text_io; use text_io;

procedure example is
   n : constant natural := 10;     -- How many numbers? (Ans: [1,n]).
   p : constant natural :=  5;     -- How many powers?  (Ans: [1,p]).
begin -- example
   for i in 1..n loop
      declare
         ip : natural := 1;
      begin
         for power in 1..p loop
            ip:=ip*i;
            put(natural'image(ip) & " ");
         end loop;
         new_line;
      end;
   end loop;
end example;