Girilen sayının asal olup olmadığını bulan program

CLS
 PRINT "GIRILEN SAYININ ASAL OLUP OLMADIGINI BULAN PROGRAM"
 INPUT "SAYI = ", N
 IF N < 1 THEN
  PRINT "ASAL DEGIL"
  END
 END IF
 IF N = 1 THEN
  PRINT "ASAL DEGIL"
  END
 END IF
 IF N = 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

Örnek Çıktı :

GIRILEN SAYININ ASAL OLUP OLMADIGINI BULAN PROGRAM
SAYI = 15
ASAL DEGIL