Напишите программку, которая подсчитает сумму естественных чисел от 1 до nВот

Напишите программу, которая подсчитает сумму натуральных чисел от 1 до n
Вот пример из задачки:
Написать пр-му, которая выводит все естественные числа от 1 до n
Program zd;
var i,n: integer;
Begin
Writeln('Введите n');
readln(n);
for i:=i to n do
begin
writeln(i,' ');
end;
end.