begin integer x,y,i; y := 0; i := 1; read(x); if x>1 then to x do y := y+i; i := i+1; end; fi; write(y); end