for i=7 to 1
str=""
forj=1 to j
str=space(7-i) & str & "*"
nxet j
form1.print str
next i