составить алгоритм для вычисления суммы чисел от 1 до n

Program n1;
var S,i,n: integer;
begin
i:=1;
S:=0;
writeln('введите n: ');
readln(n);
while (i<=n) do
begin
S:=S+i;
i:=i+1;
end;
writeln('сумма: ',S);
end.