Составить алгоритм для вычисления суммы чисел от 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.