Pseudocódigo 14

Realizar un código el cual calcule el perímetro del circulo

Proceso perimetro_del_circulo //Cruz Sosa Aldo  Ing.Biomedica "B"
    Definir  p,radio,perimetro Como Real;
    p<-3.1416;
    Escribir  " dar radio ";
    leer radio;
    perimetro<-p*radio*2;
    Escribir " el perimetro del circulo es:";
    Escribir perimetro;
 FinProceso