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

var  
n, i, sum: integer;  
begin  
read(n);  
for i := 1 to n do sum := sum + i;  
writeln(sum);
end.