Program Task1(output);
    var sum, start, step, last: single;
begin
    start := 1;
    step := 1.5;
    sum := 0;

    readln(last);

    while start <= last do
        begin
            sum := sum + start;
            start := start + step;
        end;
    writeln(sum);
end.