program main implicit none real(8)r,d read(*,*)r,d write(*,*)sqrt(d**2-r**2) end program main