Ответы и объяснения

2014-01-23T17:58:56+04:00
Var
  s: Int64;
  i, n: byte;
begin
  readln(n);
  for i := 1 to n do
    s += i;
  writeln(s);
end.