program SumN;
var
N, sum, i: integer;
begin
sum := 0;
writeln('Введите число N:');
readln(N);
for i := 1 to N do
begin
sum := sum + i;
end;
writeln('Сумма чисел от 1 до ', N, ' равна ', sum);
end.

Программа запрашивает у пользователя натуральное число N, затем с помощью цикла for вычисляет сумму чисел от 1 до N и выводит ее на экран.