program whilest;
var n, i, sum : integer;
begin
    readln(n);
    i := n;
    sum := 0;
    while i > 0 do begin
        sum := sum + i;
        i := i - 1
    end;
    writeln('Summention of 1 - ', n, '  is ', sum)
end.