input""a
for i=1to a
for j=1to max(i,a-i+1)?mid$(" X",(j=a-i+1or j=i)+1,1);next
?next