1'den Girilen sayıya kadar olan tamsayıların toplamını bulan program

CLS
 PRINT "1DEN GIRILEN SAYINA KADAR OLAN TAMSAYILARIN TOPLAMINI BULAN PROGRAM"
 INPUT "HANGI SAYIYA KADAR = ", N
 I = 0
 T = 0

ISLEM:
 I = I + 1
 T = T + I
 IF I = N THEN
  PRINT "TOPLAM =", T
  END
 END IF
 GOTO ISLEM

Örnek Çıktı :

1DEN GIRILEN SAYINA KADAR OLAN TAMSAYILARIN TOPLAMINI BULNA PROGRAM
HANGI SAYIYA KADAR = 15
TOPLAM = 120