Найдите сумму всех натуральных чисел на промежутке от 1 до n. Число n вводится на клавиатуре. Составьте на Паскале с циклом WHILE

var

n, i, sum: integer; / / объявляем переменные целочисленного типа.

begin

writeln (' Введите положительное число:'); / / вывод строки на экран.

readln (n); / / считываем число, введенное с клавиатуры.

i:=1;

while i < = n do / / начало цикла.

begin

sum: = sum + i; / / считаем сумму на каждом шаге цикла.

i: = i + 1; / / увеличиваем счетчик.

end;

writeln (' Сумма натуральных чисел от 1 до ', n,' равна: ', sum); / / вывод строки на экран.

end.