($r,$d)=glob<>;
print sqrt$d**2-$r**2