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

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

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

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.

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

var sum, n, i:integer;

begin

readln (n) ;

sum:=0;

for i:=1 to n do

sum:=sum+i;

writeln (sum) ;

readln;

end.