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

Var i, N, sum: integer;
begin
  sum := 0;
  readln (N);
  for i := 1 to N do sum := sum + i;
  writeln (sum);
end.