Используя цикл с заданным условием продолжения работы написать программу которая вычисляет сумму первых n натуральных чисел

program zz1;

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

begin

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

read (n);

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

while i < = n do / / организуем цикл пока, с заданным условием продолжения работы

begin

r:=r + i; / / вычисляем сумму натуральных чисел

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

end;

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

end.