programa para calcular el area de una esfera, perimetro de un circulo y el area de un cubo.

Proceso areas
definir a,b ,resultado, total Como Real;
Definir op como cadena;
Escribir "ejercicios";
Escribir "para el area de una esfera digite: a";
Escribir "para el perimetro de un circulo digite:b";
Escribir "para el area de un cubo digite: c";
Repetir
Repetir
Escribir "que ejercicio desea realizar";
Leer op;
Escribir "las medidas debe ingresarlas en mm";
Hasta Que op="a" |op="A" |op="b"|op="B"|op="c"|op= "C"
Si op="a" |op="A" Entonces
Escribir "ingrese el radio";
leer a;
resultado<-4*PI*a^2;
total<-resultado/10;
Escribir "el area de la esfera es: ",total,"cm^2";
Sino
Si op="b"|op="B" Entonces
Escribir "ingrese radio";
leer a;
resultado<-2*PI*a;
total<-resultado/10;
Escribir "el perimetro del circulo: ", total,"cm";
Sino
Escribir "ingrese el area";
leer a;
resultado<-6*a^2;
total<-resultado/10;
Escribir " el area de un cubo:" ,total,"cm^3";
FinSi
FinSi
Escribir "si desea salir ingrese: si, sino, si deseas continuar ingresa: no";
Leer op;
   Hasta Que op="si"
FinProceso