Найти сумму чисел на промежутке от 1 до N​

var i,N,k: integer;

begin

Write('введите N ');

readln (N);

k:=0;

for i:= 1 to N do

k:=k+i;

write (k);

readln

end.