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

Program sum;
var
sum ,n , i : integer;
begin
readln (n);
for i:= 1 to n do
sum:= sum + i;
writeln (sum);
end;