input""n
for y=1to n
for x=1to n?mid$(" Z",1+(y=1or x+y>n)+(n<x+y-1)*(y<n),1);next
?next