int s = n * (n + 1) / 2;
Тут цикл нужен.
var n:byte; begin readln(n); writeln (n * (n + 1) / 2:0:0) end.
Значение n выбирается произвольно. Можете задавать его напрямую.