area de un circulo

Proceso cinco
Escribir "calcular el area de un circulo"; Leer pausa;
Escribir "ingresar valor de radio"; Leer radio;
Escribir "ingresar valor de pi";Leer pi;
si (radio>0) Entonces
area <- radio*radio * pi;
Escribir "valor del area es",area;
Sino
Escribir "no sirve un valor de radio nulo o negativo";
FinSi


FinProceso