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