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