Ejercicio 67

para posneg bt escribe [INTRODUCE UN NÚMERO EN LA VENTANA] haz "valor leepalabra bt escribe (lista "El "número "es: :valor) si :valor>0 [escribe (lista "Su "raiz "cuadrada "es: rc :valor)][escribe (lista "No "tiene "raiz, "es "un "número "negativo)] fin