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

Program suma;
Var n, sum, i:integer;
begin
  read(n);
  for i:=1 to n do sum:=sum+i;
  write(sum);
end.