n=scan("stdin") for(i in 1:n){b=c(i,n-i+1);a=NA;a[b]="X";a[-b]=" ";cat(a," ",sep="")}