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

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