Proceso sin_titulo
    Definir opcion,inicial,final como entero
    Definir U,K,Q1,Q2,r como real
    Definir T,F,W como real
    Escribir "MENU"
    Escribir "1) energia potencial eléctrico"
    Escribir "2) frecuencia angular"
    Escribir "3) Frecuencia"
    Escribir "4) inductancia "
    Escribir " escribir Opción"
    Leer opcion
    Segun opcion hacer
        1:
            Escribir "Calculo de la energia potencial eléctrica"
            k=0.175
            Escribir "ingrese distancia r"
            leer r
            inicial=20
            final=100
            si r<>0 Entonces
                Escribir "ingrese la carga de Q2"
                Leer Q2
                para Q1<-inicial Hasta final con Paso 25 Hacer
                    U<-(k* Q1  *Q2)/r;
                    Escribir "El resultado de EPE es : ", U
                FinPara
            Sino
                Escribir "fuera de rango"
            FinSi
        2:
            Escribir "leer K"
            leer K
            inicio1=5
            final2=20
            Para M<-inicio1 Hasta final2 Con Paso 1 hacer
                w = rc(K/M)
                Escribir "la frecuencia angular es :", w
            FinPara
        3:
            Escribir " ingrese W"
            leer W
            si W>60 y W<120
                F=W/2*PI
                Escribir " la frecuencia es :",F
             sino
                Escribir "fuera de rango "
            FinSi
        4:
            Escribir "ingrese I"
            Leer I
            Escribir "ingrese  O"
            Leer Q
            inicial1=10
            final22=100
            si I<>0 entonces
                Para N<- inicial1  hasta final22 con paso 5 hacer
                    L=(Q*N)/I
                    Escribir "la inductancia es : ", L
                FinPara
            sino 
                Escribir "fuera de rango"
            FinSi
            
            
            
    FinSegun
    
FinProceso