Составить алгоритм вычисления величины s=1+2+3++n, n принадлежит n(натуральному числу)

                                                        начало                                                                                                                                                                                                                                                                         ввод n                                                                                                                                                                                                                                                                            s=   *n                                                                                                                                                                                                                                           вывод s                                                                                                                                 конец

var

j,p: integer;

begin

j:=-6;

p:=1;

While j<5 do begin

p:=p*j;

inc(j);

end;

Writeln(p);

readln;

end.