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

Question

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

Answer 1

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

Comments

в конце end с точкой