Question

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

Answer 1

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