input""n
for i=1to n
z=n-i+1
for j=1to max(i,z)?mid$(" XX",1+(j=i)+(j=z),1);next
?next