Составьте алгоритм вычисления суммы всех натуральных чисел,не привышающих заданного натурального числа 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.