壹下是用pascal編寫的代碼
program answer;
var
i,f,n:integer;
begin
readln(n);
for i:=1 to n do
f:=f+i;
writeln(f);
end.