Question

С клавиатуры вводится натуральное число n.посчитать сумму натурального числа от 1 до n?

Answer 1

Var n : Integer;
Begin
  Readln(n);
  Writeln((n+1)*n div 2);
end.