ИЗ ПРИМЕРА ЗАДАЧИ, КОТОРАЯ ВЫВОДИТ ВСЕ НАТУРАЛЬНЫЕ ЧИСЛА ОТ 1 ДО n:
Program pr;
Var i,n :integer
Begin
Writeln('Введите n');
readln(n);
for i:= 1 to n do
begin
writeln(i,' ');
end;
end.
НАПИШИТЕ ПРОГРАММУ, КОТОРАЯ ПОДСЧИТЫВАЕТ СУММУ НАТУРАЛЬНЫХ ЧИСЕЛ ОТ 1 до N

Вот после второго begin, не понимаю что писать. Не подсчитывает(без sum)

s - это просто название переменной

После integer точку с запятой забыли, а так все хорошо

просто в Var добавь переменную b. получится Var i,n,b : integer.Потом там где написано writeln(i,'') напиши b:=b+i;И потом перед end. напиши write(b);