Напишите программу, подсчитывающую сумму всех чисел от 1 до N. Pascal

var

n, s, i: longint;

begin

cls;

writeln ('Нахождение суммы всех натуральных чисел от 1 до N.');

write ('Введите число N: ');

readln (N);

s : = 0; / / Обнуляем изначальное значение суммы.

for i : = 1 to n do

s : = s + i;

writeln ('Сумма первых ', n, ' чисел равна ', s, '.');

end.