составьте программу Паскаль вычисления суммы натуральных чисел не превышающих заданного числа N

программа идет, получилось все правильно

ну тогда ок. Я выше привёл формулу - которая упрощает код программы.

спасибо

Возьму формулу на вооружение!

её можно доработать для условия сумма чисел от А до B

Var  a,n,i:integer;Begin  Write('Введите число ');  Readln(n);  for i:= 1 to n do    a:=a+i;  Write('Сумма всех натуральных чисел до n (включительно) равна ',a);End.