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

program zz1;

var n, s, i: integer; / / задаем переменные целого типа

begin

s: = 0; / / задаем начальное значение суммы

read (n); / / вводим число n с клавиатуры

i:=1; / / задаем значение первого натурального числа

while i < = n do / / организуем цикл, пока натуральное число не станет больше заданного n

begin

s:=s + i; / / прибавляем очередное натуральное число к сумме

i: = i + 1; / / берем следующее натуральное число

end;

write (' полученная сумма натуральных чисел = ', s); / / выводим ответ на экран

end.