Выручите, пожалуйста! Составьте алгоритм вычисления суммы всех натуральных чисел, не превышающий заданного натурального числа N. Проверьте алгоритм трассировкой. Напишите программу на Паскале.

var N,  i, sum: longint;beginwriteln('Введите число');readln(N);sum:=0;for i:=1 to N-1 dosum:= sum+i;writeln(sum);readlnend. Выбирайте лучший ;)