ClrHome
For(I,1,5)
For(J,1,I)
Output(J,I,"*")
End
End