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

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