1.
Var n:longint;
BEGIN
    Read(n);
    Write((n * (n + 1)) div 2);
END.
2.
Var n:longint;
//////////////
Function res(n:longint):longint;
Begin
    if (n = 0) then res := 0
    else
        begin
            Read(res);
            inc(res,res(n-1));
        end;
End;
//////////////
BEGIN
    Read(n);
    Write(res(n));
END.