input""a
for i=1to a
for j=1to a?abs(i-j)+1;next
?next