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

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