program aaa
implicit none
integer(8) :: i,j,k,n
double precision :: beauty,m,d
read(*,*) n,m,d

if(d == 0 ) then
	beauty = (m-1)/n
else
	beauty = 2*(n-d)/(n**2) *(m-1)
endif
write(*,*) beauty

end program