CLS
OPTION BASE 1
DIM sinif(5) AS INTEGER
DIM no(5) AS INTEGER
DIM ad(5) AS STRING
FOR i = 1 TO 5
    INPUT "sinifini gir   ", sinif(i)
    INPUT "no gir   ", no(i)
    INPUT "ad gir   ", ad(i)
NEXT i

GOSUB yazdir

FOR m = 1 TO 5
    FOR n = 1 TO 5
        IF sinif(m) < sinif(n) THEN
            SWAP sinif(m), sinif(n)
            SWAP ad(m), ad(n)
            SWAP no(m), no(n)
        END IF
    NEXT n
NEXT m

GOSUB yazdir

FOR m = 1 TO 5
    FOR n = 1 TO 5
        IF sinif(m) = sinif(n) AND no(m) < no(n) THEN
            SWAP no(m), no(n)
            SWAP ad(m), ad(n)
        END IF
    NEXT n
NEXT m

GOSUB yazdir

FOR m = 1 TO 5
    FOR n = 1 TO 5
        IF sinif(m) = sinif(n) AND no(m) = no(n) AND ad(m) < ad(n) THEN

            SWAP ad(m), ad(n)
        END IF
    NEXT n
NEXT m
GOSUB yazdir
END

yazdir:
PRINT "---sinif-----",
PRINT "-----no-----",
PRINT "---isimler---"
FOR i = 1 TO 5
    PRINT sinif(i),
    PRINT no(i),
    PRINT ad(i)
NEXT i
RETURN