Question

ИЗ ПРИМЕРА ЗАДАЧИ, КОТОРАЯ ВЫВОДИТ ВСЕ НАТУРАЛЬНЫЕ ЧИСЛА ОТ 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

Answer 1

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

Answer 2

Var i,n,s :integer
Begin
Writeln('Введите n');
readln(n);
s := 0;
for i:= 1 to n do
begin
s := s + i;
end;
write(s);
end.