(*Условие задачи ты описал неоднозначно. Как я понял, так и написал. *)
var
n:integer;
k:integer;
s:real;
begin
readln(n);
s := 0;
for k:=1 to n do
s := s + k + 1;
writeln(s:0:2);
end.
(*Условие задачи ты описал неоднозначно. Как я понял, так и написал. *)
var
n:integer;
k:integer;
s:real;
begin
readln(n);
s := 0;
for k:=1 to n do
s := s + k + 1;
writeln(s:0:2);
end.