CLS
INPUT N
A = (1 + N) * N / 2: C = 1
FOR I = 1 TO N
B = A
FOR J = 1 TO I
PRINT USING "###"; C;
C = C + 1
NEXT J: PRINT SPC((N - I) * 6);
FOR J = 1 TO I
PRINT USING "###"; B;
B = B + N + J - I
NEXT J: A = A - (N + 1 - I): PRINT
NEXT I
END

CLS
DIM A(5,5),B(5,5)
K=0
FOR I=1 TO 5
  FOR J=1 TO I
   K=K+1 
   A(I,J)=K
  NEXT J
NEXT I
K=0
FOR J=1 TO 5
  FOR I=6-I TO 5
    K=K+1
    B(I,J)=K
  NEXT I
NEXT J
FOR I=1 TO 5
  FOR J=1 TO I
    ? USING"###";A(I,J);
   NEXT J
   ? TAB(31-I);
   FOR J=1 TO I
     ? USING"###";B(I,J);
   NEXT J
   ?
NEXT I
NEXT I

CLS
INPUT N
FOR I = 1 TO N
B = (1 + N + 1 - I) * (N + 1 - I) / 2
FOR J = 1 TO I: K = K + 1: PRINT USING "###"; K; : NEXT J
PRINT SPC((N - I) * 6);
FOR J = 1 TO I: PRINT USING "###"; B; : B = B + N - I + J: NEXT J: PRINT
NEXT I
END