$ include "seed7_05.s7i";

const proc: main is func
  local
    var integer: I is 1;
    var integer: J is 1;	

  begin
   for I range 1 to 5 do
     for J range 1 to I do
       write("*");
     end for;
       writeln;
   end for;
  end func;