QBasic array program to delete dublicate/repeat number

CLS
DIM n%(10), i%, p%, k%
PRINT "enter ten number"
FOR i = 1 TO 10
    INPUT N(i)
NEXT
k = 1

FOR i = 1 TO 10
    FOR J = i + 1 TO 10
        IF N(i) = N(J) THEN
            N(i) = N(i) - N(i)
        END IF
    NEXT
NEXT
FOR i = 1 TO 10
    IF N(i) < > 0 THEN
        N(k) = N(i)
        k = k + 1
    END IF
NEXT
p = k - 1
FOR i = 1 TO p
    IF N(i) < > 0 THEN
        PRINT N(k)
    END IF
NEXT

QBasic array program to delete dublicate/repeat number

CLS
DIM n%(10), i%, l%, k%
PRINT "enter ten number"
FOR i = 1 TO 10
    INPUT N(i)
NEXT
k = 1

FOR i = 1 TO 10
    FOR J = i + 1 TO 10
        IF N(i) = N(J) THEN
            N(i) = N(i) - N(i)
        END IF
    NEXT
NEXT
FOR i = 1 TO 10
    IF N(i) < > 0 THEN
        N(k) = N(i)
        k = k + 1
    END IF
NEXT
l = k - 1
FOR k = 1 TO l
    IF N(k) < > 0 THEN
        PRINT N(k)
    END IF
NEXT

QBasic array program to delete dublicate/repeat number

CLS
DIM n%(10), i%, l%, k%
PRINT "enter ten number"
FOR i = 1 TO 10
    INPUT N(i)
NEXT
k = 1

FOR i = 1 TO 10
    FOR J = i + 1 TO 10
        IF N(i) = N(J) THEN
            N(i) = N(i) - N(i)
        END IF
    NEXT
NEXT
FOR i = 1 TO 10
    IF N(i) < > 0 THEN
        N(k) = N(i)
        k = k + 1
    END IF
NEXT
l = k - 1
FOR k = 1 TO l
    IF N(k) < > 0 THEN
        PRINT N(k)
    END IF
NEXT

QBasic array program to delete dublicate/reap

CLS
DIM n%(10), i%, l%, k%
PRINT "enter ten number"
FOR i = 1 TO 10
    INPUT N(i)
NEXT
k = 1

FOR i = 1 TO 10
    FOR J = i + 1 TO 10
        IF N(i) = N(J) THEN
            N(i) = N(i) - N(i)
        END IF
    NEXT
NEXT
FOR i = 1 TO 10
    IF N(i) <> 0 THEN
        N(k) = N(i)
        k = k + 1
    END IF
NEXT
l = k - 1
FOR k = 1 TO l
    IF N(k) <> 0 THEN
        PRINT N(k)
    END IF
NEXT

QBasic array program to

CLS
DIM n%(10), i%, l%, k%
PRINT "enter ten number"
FOR i = 1 TO 10
    INPUT N(i)
NEXT
k = 1

FOR i = 1 TO 10
    FOR J = i + 1 TO 10
        IF N(i) = N(J) THEN
            N(i) = N(i) - N(i)
        END IF
    NEXT
NEXT
FOR i = 1 TO 10
    IF N(i) <> 0 THEN
        N(k) = N(i)
        k = k + 1
    END IF
NEXT
l = k - 1
FOR k = 1 TO l
    IF N(k) <> 0 THEN
        PRINT N(k)
    END IF
NEXT

Qbasic program to check PAN number is valid or not

CLS
    DIM P AS STRING , N% , C% , T% , C1% , C2%
         
    INPUT "ENTER PAN NUMBER"; P$
    P$ = UCASE$(P$)
    IF LEN(P$) = 10 THEN
        FOR T = 1 TO 5
            G$ = MID$(P$, T, 1)
            N = ASC(G$)
            IF (N >= 65 AND N <= 90) OR (N >= 97 AND N <= 122) THEN
                C = C + 1
            END IF
        NEXT
        FOR T = 6 TO 9
            G$ = MID$(P$, T, 1)
            N = ASC(G$)
            IF (N >= 48 AND N <= 57) THEN
                C1 = C1 + 1
            END IF
        NEXT

        FOR T = 10 TO 10
            G$ = MID$(P$, T, 1)
            N = ASC(G$)
            IF (N >= 65 AND N <= 90) OR (N >= 97 AND N <= 122) THEN
                C2 = C2 + 1
            END IF
        NEXT
    ELSE
        PRINT "INVALID PAN NUMBER"
        END
    END IF
    IF C = 5 AND C1 = 4 AND C2 = 1 THEN
        PRINT "VALID PAN CARD"
    ELSE
        PRINT "INVALID PAN NUMBER"
    END IF

END

qbasic program to print square star

INPUT"ENTER TERM OF STAR";N
FOR I = 1 TO N
    FOR J = 1 TO N
        IF I = 1 OR I = N OR J = 1 OR J = N THEN
            PRINT " *";
        ELSE
            PRINT "  ";
        END IF
    NEXT
    PRINT
NEXT