Algoritmo – Ártea y Perímetro de un Circulo

Algoritmo Circulo_Area_Perimetro
  //Algoritmo que calcula el área y perímetro de un circulo
	Definir Area,Perimetro,Radio,Phi,Diametro Como Real;
	Phi <- 3.14159;
	Escribir "Ingresa el valor de diametro"
	Leer Diametro;
	
	Radio <- Diametro/2;
	Area <- Phi*Radio*Radio;
	Perimetro <- Diametro*Phi;
	
	Escribir "El área del circulo es: ",Area;
	Escribir "El perimetro del circulo es: ",Perimetro;
FinAlgoritmo