Составьте программу вычисления суммы всех натуральных чисел, не превышающих заданного натурального числа n.

CLS
a:
INPUT n
IF INT(n)<>n OR n<1 THEN PRINT "не может быть": GOTO a
FOR i=1 TO n
s=s+i
NEXT i
PRINT "сумма равна" ; s
END