$ 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 func;