Proceso BUCLES_REPETICIÓN_FINITA
    Definir opciones Como Entero
    Escribir "**********MENÚ*********";
    Escribir "1)TRABAJO TÉRMICO";
    Escribir "2)SUMA";
    Escribir "3)MRUV";
    Escribir "4)trinomio al cubo";
    ESCRIBIR "5)TABLA DE  MULTIPLICAR DEL 1 AL 12";
    Escribir "ELIJA UNA OPCIÓN";
    Leer OPCIONES;
    SEGUN OPCIONES HACER
        1:
            //DECLARACIÓN
            Escribir "OPCIÓN 1";
            Definir INICIAL1,INICIAL2,FINAL1,FINAL2,n,p1,p2,w,v1,v2  Como Real;
            //ASIGNACIÓN
            Escribir "p2"; Leer p2;
            Escribir "v1"; Leer v1;
            escribir "v2"; Leer v2;
            //PROCESO
            INICIAL1<-0
            FINAL1<-0.9
            INICIAL2<-10
            FINAL2<-15
            Para n<-INICIAL1 HASTA FINAL1 CON PASO 0.1 HACER
                PARA p1<-INICIAL2 HASTA  FINAL2 CON PASO 0.2 HACER
                    w<-((p2*v2)-(p1*v1))/(1-n)
                    Escribir "PARA p2=",p2,",   v2=",v2,",   p1=",p1,",   v1= ",v1,"   y la eficiencia n= ",n,"   te da un trabajo térmico igual a =",w;
                FinPara
            FinPara
        2:
            //DECLARACIÓN
            Escribir "OPCIÓN 2";
            Definir INICIAL1, INICIAL2, FINAL1, FINAL2, a, b, c  Como Real;
            //PROCESO
            INICIAL1<-10
            FINAL1<-15
            INCIAL2<-1
            FINAL2<-10
            Para a<-INICIAL1 HASTA FINAL1 CON PASO 0.025 HACER
                PARA b<-INICIAL2 HASTA  FINAL2 CON PASO 0.1 HACER
                    c<-a+b
                    Escribir "para a=",a,"    y b=",b,"    te da una suma igual a= ",c;
                FinPara
            FinPara
        3:
            //DECLARACIÓN
            Escribir "OPCIÓN 3";
            Definir INICIAL, FINAL,VF, V1, A, E   Como Real;
            //ASIGNACIÓN
            Escribir "V1"; Leer V1;
            Escribir "A";  Leer A;
            //PROCESO
            INICIAL<-10
            FINAL<-30
            Para E<-INICIAL HASTA FINAL CON PASO 1.5 HACER
                VF<-RC(((V1)^2)+(2*A*E))
                Escribir "para una V1=",V1,",  una A=",A,"    y una E=",E,"    nos da igual a una velocidad final =",VF;
            FinPara
        4:
            //DECLARACIÓN
            Escribir "OPCIÓN 4";
            Definir INCIAL1, FINAL1, INICIAL2, FINAL2,a,b,c,d  Como Real;
            //ASIGNACIÓN
            Escribir "c "; Leer c;
            //PROCESO
            INICIAL1<-20
            FINAL1<-50
            INCIAL2<-10
            FINAL2<-15
            Para a<-INICIAL1 HASTA FINAL1 CON PASO 1 HACER
                PARA b<-INICIAL2 HASTA  FINAL2 CON PASO 0.2 HACER
                    d<-(((a)^3)+((b)^3)+((c)^3))+(3*(a+b)*(a+c)*(b+c))
                    Escribir "la suma al cubo de a",a,", b",b," y c",c," nos da igual a una suma de ",d;
                FinPara
            FinPara
        5:
            //DECLARACIÓN
            Escribir "OPCIÓN 5";
            Definir INICIAL1, INCIAL2, FINAL1, FINAL2, A,B,C  Como Real;
            //PROCESO
            INICIAL1<-1
            FINAL1<-12
            INCIAL2<-1
            FINAL2<-12
            Para A<-INICIAL1 HASTA FINAL1 CON PASO 1 HACER
                Escribir "LA TABLA DEL: ",A;
                Escribir "-------------------";
                PARA B<-INICIAL2 HASTA  FINAL2 CON PASO 1 HACER
                    C<-A*B
                    Escribir "",A," * ",B," = ",c;
                FinPara
            FinPara
    FinSegun
FinProceso