ПОМОГИТЕ ПЖЛ ЭТО НАДО СРОЧНО!!!

Question

ПОМОГИТЕ ПЖЛ ЭТО НАДО СРОЧНО!!!

---

Answer 1

Var s,n,i:longint;
begin
read(n);
for i:=1 to n do
             s:=s+i;
write(s);
end.