Question

Напишите программу которая вычисляет сумму первых n натуральных чисел

Answer 1

Var s, i, : integer:
Begin
s:=0
readin(n)
for i:= 1 to n do s:s+i
writeln(s)
end