{$N+}
program task_05;
var
 InData, OutData: text;
 s,n: double;
begin
 assign(InData,'input.txt');
 assign(OutData,'output.txt');
 {$I-}
 reset(InData);
 if IORESULT<>0 then writeln ('Файл input.txt не найден') else
 {$I+}
 begin
 read(InData,n);
 {Пояснение - для вычислений используем особенность: квадратный корень из
  из суммы кубов арифметической прогрессии равен сумме самой прогрессии.
  Лично я нашел это отношение чисто эмпирически без док-ва}
 s:=(n+1)*n/2;
 close(InData);
 rewrite(OutData);
 write(OutData,s:3:2);
 close(OutData);
 end;
end.