CLS
INPUT N
FOR I = 1 TO N * 2 - 1
PRINT TAB(ABS(N - I) + 1);
IF I = N OR I = 1 OR I = N * 2 - 1 THEN
PRINT STRING$((N - ABS(N - I)) * 2 - 1, "#")
ELSE
PRINT STRING$(N - ABS(N - I) - 1, "*"); "#"; STRING$(N - ABS(N - I) - 1, "*")
END IF
NEXT I
END

好难呀