Program enot;

Var s,a,i:integer; c:real;

begin

s:=0;

read(a);

for i:= a to 200 do

s:=s+i;

c:=s/(200-a+1);

write(c);

end.