W, X, Y, Z: real
READ W, X
Z = 1
While (Z > 0.01) do
 Y = X - (((X*X) - W)/ (2*X))
 Z = abs(X - Y)
 X = Y
End While
Print X 

--------
Probar con los siguientes casos de prueba:

w = 2, x = 2; resultado x = 1.4142
w = 256,x =4; resultado x = 16.0000
w = 9, x  = 3; resultado x = 3.0

Indicar de que se trata el programa