CLS
OPTION BASE 1
DIM yas(5) AS INTEGER
DIM sinif(5) AS INTEGER
FOR i = 1 TO 5
    INPUT "yas", yas(i)
    INPUT "sinif", sinif(i)
NEXT i

GOSUB yazi

'sinifa g”re siralama'
FOR m = 1 TO 4
    FOR n = m + 1 TO 5
        IF sinif(m) > sinif(n) THEN
            SWAP sinif(m), sinif(n)
            SWAP yas(m), yas(n)
        END IF
    NEXT n
NEXT m
GOSUB yazi

'yasa g”re siralama'

FOR m = 1 TO 4
    FOR n = m + 1 TO 5
        IF sinif(m) = sinif(n) AND yas(m) > yas(n) THEN

            SWAP yas(m), yas(n)
        END IF
    NEXT n
NEXT m

GOSUB yazi
END

yazi:

PRINT "======================="
PRINT "yaslar",
PRINT "siniflar"

FOR j = 1 TO 5
    PRINT yas(j),
    PRINT sinif(j)
NEXT j

RETURN