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