begin
   integer i,j;
   for i:=1 step 1 until 5 do
   begin
      for j:=1 step 1 until i do
         outtext("*");
      outimage
   end
end