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

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