Определите, чему будет равна сумма всех целых чисел от единицы до заданного числа N....

Question

Определите, чему будет равна сумма всех целых чисел от единицы до заданного числа N.

Входные данные
Первая строка содержит целое число N (1 <= N <= 100).<br>
Выходные данные
Выведите одно целое число — сумму чисел от 1 до N.

---

Answer 1

Var n, s, i: integer;
begin
write('Введите n ');
readln(n);
for i:=1 to n do
s:=s+i;
writeln(s);
end.