program main implicit none real*8::a,b,c read *,a,b print '(f0.15)', sqrt(abs(a*a-b*b)) end program main