Следует воспользоваться формулой суммы арифметической прогрессии. Результатом будет res = (1 + n) * n / 2 program summa; var n:integer; res:double; begin readln(n); res := n; res := res*(n+1)/2.0; writeln(res:0:0); end.