CLS
INPUT N
M = N \ 2 + 1
FOR I = 1 TO N
PRINT STRING$(M - ABS(M - I) - 1, "#");
PRINT STRING$(ABS(M - I) * 2 + 1, "*");
PRINT STRING$(M - ABS(I - M) - 1, "#");
PRINT
NEXT I
END

CLS
INPUT N
DIM A(N, N)
FOR I = 1 TO N \ 2 + 1
  FOR J = I TO N + 1 - I 
    A(I, J) = 1: A(N + 1 - I, J) = 1
NEXT J, I
FOR I = 1 TO N
  FOR J = 1 TO N
    IF A(I,J)=1 THEN PRINT "*"; ELSE PRINT "#";
  NEXT J
  PRINT
NEXT I