Proceso EspañaEvp8
    // declaracion
    Definir OPC Como Entero;
    Escribir "***** MENU ****** ";
    Escribir "1)";
    Escribir "2)";
    Escribir "3)";
    Escribir "   INGRESE UNA OPCION "; 
    Leer OPC;
    segun OPC hacer 
        1: 

    //Algoritmo Trabajo_Termico
        escribir "opcion 1"
            Definir w,p1,v1,p2,v2,n,inicial,final Como Real
    Escribir "Ingrese P1"
    Leer p1;
    Escribir "Ingrese V1"
    Leer v1;
    Escribir "Ingrese V2"
    Leer v2;
    n<-0.87;
    inicial<-3;
    final<-10;
    Para p2<-inicial Hasta final Con Paso 0.5 Hacer;
        w<-((p2*v2)-(p1*v1))/(1-n);
        Escribir "Si P2 es: ",p2,"     -El trabajo Termico es: ",w;
    Finpara
    2:
    escribir "Opción 2"
    //Algoritmo Tension_Superficial
    Definir x,x1,tf,ti,n,ini1,ini2,fin1,fin2 Como Real;
    Escribir "Ingrese la tension inicial";
    Leer ti;
    ini1<-0;
    ini2<-100;
fin1<-20;
fin2<-200;
n<-0.87;
Para x1<-ini1 Hasta fin1 Con Paso 1.5 Hacer;
    Para tf<-ini2 Hasta fin2 Con Paso 25 Hacer;
        x<-x1*((1-(tf/ti))^2);
        Escribir "Si x1: ",x1," y la tension final es: ",tf,"   -La tension Superficial es: ",x; 
    Finpara
Finpara 
3:
//Algoritmo trabajo
Definir W,F,D,inicial1,fin1 Como Real;
Escribir "Ingrese la fuerza utilizada";
Leer F;
inicial1<-0
fin1<-100
Para D<-inicial1 Hasta fin1 Con Paso 5 Hacer
    W<- F * D
    Escribir "Si la distancia es: ",D,"  -el trabajo realizado es  ",W;
FinPara

finsegun

    
FinProceso