Algoritmo TAREA
    Escribir '**********MENÚ*******'
    Escribir '1: CORRIENTE DE CALOR:'
    Escribir '2: CAPACITANCIA:'
    Escribir '3: DISTANCIA:'
    
    Escribir 'INGRESE LA OPCION:'
    Leer PROCESO1234
    Segun PROCESO1234 Hacer
        1:
            Definir INICIO1,FINAL1,INICIO2,FINAL2,TC Como Entero
            Definir H,C,A,TF,L como REAL
            
            INICIO1=100
            FINAL1=800
            INICIO2=5
            FINAL2=10;
            Escribir 'INGRESE EL VALOR DE C: '
            Leer C
            Escribir 'INGRESE EL VALOR DE A: '
            Leer A
            Escribir 'INGRESE EL VALOR DE TF: '
            Leer TF
            PARA TC<-INICIO1 HASTA FINAL1 CON PASO 10 HACER
                PARA L<-INICIO2 HASTA FINAL2 CON PASO 0.1 HACER
                H<-(C*A*(TC-TF))/L
                Escribir '(',C,'*',A,'*','(',TC,'-',TF,')',')','/',L,'=',H;
                Escribir 'La CORRIENTE DE CALOR ES: ',H;
            FinPara
            FINPARA
        2:
            Definir INICIO,FINAL,P_APA Como Entero
            Definir P_ACT,P_REAC como REAL
            
            INICIO=50;
            FINAL=10000;
            
            Escribir 'INGRESE EL VALOR DE POT.REACTIVA: '
            Leer P_REAC
            
            PARA P_APA<-INICIO HASTA FINAL CON PASO 100 HACER
                P_ACT<-RC(P_APA)-P_REAC
                ESCRIBIR 'RC','(',P_APA,')','-',P_REAC,'=',P_ACT;
                Escribir 'LA POTENCIA ACTICA ES: ',CP_ACT;
            FinPara
        3:    
            Definir INICIO,FINAL,A,D,VI,T Como REAL
            
            
            INICIO1=0;
            FINAL1=100;
        
            Escribir 'INGRESE EL VALOR DE TIEMPO : '
            Leer T    
            Escribir 'INGRESE EL VALOR DE ACELERACION : '
            Leer A
            PARA VI<-INICIO1 HASTA FINAL1 CON PASO 5 HACER
                
                D<-(VI*T)+(1/2*A*T^2)
                    Escribir '(',VI,'*',T,')','+','(',1,'/',2,'*',A,'*',T,'^',2,')','=',D;
                    Escribir 'LA ACELERCION ES : ',A;
                
                
            FinPara
            
    FinSegun
    
FinAlgoritmo