1 input n:for i=1 to n:?string$(n-i," ");string$(i*2-1,"*"):next