Следует воспользоваться формулой суммы арифметической прогрессии. Результатом будет
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.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.