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