GIRILEN SAYININ ASAL OLUP OLMADIGINI BULAN PROGRAM

CLS
PRINT "GIRILEN SAYININ ASAL OLUP OLMADIGINI BULAN PROGRAM"
INPUT "SAYI = ", X
IF X < 1 THEN
PRINT "ASAL DEGIL"
END
END IF
IF X = 1 THEN
PRINT "ASAL DEGIL"
END
END IF
IF X = 2 THEN
PRINT "ASAL"
END
END IF
A = 1
ISLEM:
A = A + 1
IF (INT(N / A)) * A = N THEN
PRINT "ASAL DEGIL"
END
END IF
IF A = (N - 1) THEN
PRINT "ASAL"
END
END IF
GOTO ISLEM