Question

написать программу S=1+2+3...+n

Answer 1

Var
  s: Int64;
  i, n: byte;
begin
  readln(n);
  for i := 1 to n do
    s += i;
  writeln(s);
end.