Girilen sayının mükemmel sayı olup olmadığını bulan program

CLS
 PRINT "GIRILEN SAYININ MUKEMMEL SAYI OLUP OLMADIGINI BULAN PROGRAM"
 F = 0
 INPUT " SAYI ="; N
 FOR I = 2 TO N
  K = N / I
  IF K = INT(K) THEN
   F = F + K
  END IF
 NEXT I
 IF F = N THEN
  PRINT " MUKEMMEL SAYI"
 ELSE
  PRINT "MUKEMMEL SAYI DEGIL"
 END IF

Örnek Çıktı :

GIRILEN SAYININ MUKEMMEL SAYI OLUP OLMADIGINI BULAN PROGRAM
SAYI =? 50
MUKEMMEL SAYI DEGIL