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

Вообще с Паскалем у меня полный завал! Если знаете как, то напишите! Желательно с объяснениями, буду благодарна!

var sum,n,i:integer;

begin

readln(n);

sum:=0;

for i:=1 to n do

    sum:=sum+i;

writeln(sum);

readln;

end.

Берем и проходим циклом.

var

  sum, i, n : integer;

//i - счетчик, в sum - сумма )

begin

  read (n);

  sum := 0; //Надо обязательно обнулить

  for i := 1 to n do

    sum := sum + i;

//Таким образом к сумме будут добавлены 1, при следующей интерации 2, и так далее до N

  writeln (sum);

end.

Постарался объяснить...