Ejercicio 16 de Speint: Programa que permite al usuario sacar la raíz de los elemento que tiene el programa

Proceso raíces
definir a,b,c,d,e,f,g,t Como Real;
Definir OP como cadena;
Repetir 
Escribir "Si quiere calcular el are a de una esfera digite:, 1" ;
    Escribir "si quiere calcular el perimetro de un circulo digite:,2";
Escribir "si decea determinar el area de un cubo digite:,3";
Repetir
Escribir "elija la operacion que decea realcizar";
Leer OP;
Hasta Que OP="1" |OP="2" | OP="3";
Si OP="1" Entonces
Escribir "Ingrese r que es el radio en milimetros:";
Leer d;
a<-(4*PI)*(d^2);
t<-a/100;
Escribir "El area de la esfera es:",t,"cm^3";
Sino
Si OP="2" Entonces
Escribir "Ingrese r que es el diametro en milimetros:";
Leer f;
c<-PI*f;
t<-c/100;
Escribir "el perimetro es",t,"cm";
Sino
Si OP="3" Entonces
Escribir "primero digite una de las areas de las caras del cubo ";
Leer a;
c<-6*a^2;
t<-c/100;
Escribir "el area total del cubo es", t,"cm^3";
Sino
//nada//
FinSi
FinSi
FinSi
Escribir "decea realizar otro ejercicio ingrese 1 para seguir o 0 para finalizar:";
Leer g;
Hasta Que g=0
FinProceso