cls
for k=1 to 5
     print int(k/2),k,
  a(k/2)=k
     print int(k/2+1),a(k/2)
  a(k/2+1)=a(k/2)
next k
print "---------------"
for k=1 to 5
  print a(k);
next k