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

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