Составьте программу вычисления суммы целых чисел от 1 до k.(через паскаль)

Var i,n,sum: integer;
begin
sum:=0;
writeln('Введите число, которое > 1');
readln(n);
for i:=1 to n do
begin
sum:=sum+i;
end;
writeln(sum);
End.