• var a,x,y,z,d: numerico
• inicio
• cls()
• imprimir("\nRealice la ecuación (6*a*x*y)/sqrt(4*x*a*z)+4*y")
• imprimir("\nDigite el valor de a: ")
• leer(a)
• imprimir("\nDigite el valor de x: ")
• leer(x)
• imprimir("\nDigite el valor de y: ")
• leer(y)
• imprimir("\nDigite el vakir de z: ")
• leer(z)
• d=(6*a*x*y)/sqrt(4*x*a*z)+4*y
• imprimir("El resultado de la ecuacion (6*a*x*y)/sqrt(4*x*a*z)+4*y es igual a: ")
• imprimir(d)
• fin