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

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