REM Programm zur Berechnung Gaussīscher Reihen
PRINT "Gaussīsche Reihen - Berechnung"
CLS
PRINT
INPUT "Bitte geben Sie die erste Zahl der Reihe ein :  ", a
PRINT
INPUT "Bitte geben Sie die letzte Zahl der Reihe ein :  ", n
PRINT
IF a = 0 THEN
a = 1
END IF
IF a = 1 THEN
summe = (n / 2) * (n + 1)
END IF
IF a > 1 THEN
summe1 = (n / 2) * (n + 1)
summe2 = ((a - 1) / 2) * a
PRINT "Die Summe der gesamten Reihe von 1 bis"; n; "ist"; summe1
PRINT "Die Summe der Reihe von 1 bis "; a - 1; "ist  "; summe2
summe = summe1 - summe2
END IF
PRINT
PRINT "Die Summe aller Zahlen von "; a; "bis"; n; " ist :  ", summe
END