Proceso Formula
    Definir opcion Como Entero
    Escribir "***********************"
    Escribir "      Menú     "
    Escribir " 1: Hallando la fuerza "
    Escribir " 2: Hallar v "
    Escribir " 3: Tiempo de encuentro  "
    Escribir " 4: Opción cuatro "
    Leer opcion
    Segun opcion hacer
        1:
            Definir m, g, inicial, final Como Real
            inicial = 2.5+0.5
            final = 10
            m = inicial
            g = 9.81
            Para m = inial hasta final con paso 0.5 Hacer
                w = m * g
                Escribir "Resultado" , w;
            FinPara
        2:
            Definir V, I, R, inicial, final Como Real
            inicial = 1.0 + 0.1
            Final = 5.0
            I = inicial
            Escribir " Asignar un valor a R "
            Leer R
            Para m = inicial hasta final con paso 0.1 Hacer
                v = I*R
                Escribir " El resultado es" , V;
            FinPara
        3:
            Definir P, V, Z Como Real
            Escribir "Velocidad 1"
            Leer P
            Escribir "Velocidad 2"
            Para d = 20 hasta 80 con paso 30 Hacer
                Z = d/(p+v)
                Escribir "resultado", Z;
            FinPara
        4:
            Definir A,B Como Entero
            Definir C Como Real
            Para A = 10 hasta 20 con paso 4 Hacer
                Para B = 1 hasta 10 con paso en 2 Hacer
                    C = RC((A^2)+(B^2))
                    Escribir " Resultado ", C;
                FinPara
            De Otro Modo:
                Escribir " Esta fuera de rango "
            FinPara
    FinSegun
FinProceso