(1)
a$ = "12345678987654321"
INPUT "n <10:", n
FOR i = 1 TO n
   PRINT SPC(n - i); LEFT$(a$, i); RIGHT$(a$, i - 1)
NEXT i
END


(2)
DECLARE SUB huiwen (n!)
INPUT "n <10:", n
CALL huiwen(n)
END

SUB huiwen (n)
  a$ = "12345678987654321"
  FOR i = 1 TO n
    PRINT SPC(n - i); LEFT$(a$, i); RIGHT$(a$, i - 1)
  NEXT i
END SUB

input n
for i=1 to n
for j=1 to 2*n-1
  k=k+1
  if k<=int((2*n-1)/2) then
    print j;
  else
    print 2*n-k
  end if
next j
print
next i
end

[em1]