dim a double
dim b double
dim x double
dim m double
dim e double
input x
input e
a=0.2
b=x
m=(a+b)/2
do while m*m<x+e
    a=m
    m=(a+b)/2
 loop
 print m