proceso Mi_tarea

 escribir "1 fuerza"
 escribir "2 la velocidad"
 escribir "3 potencia"
 escribir "4 ganacia"
 definir  p,a,f,m,inicial,h ,g ,v,ic,Ib  como real
 leer var
 segun var hacer
  1:
   escribir "area"
   leer a
   inicial<-10
   p<-inicial
   mientras (p<=100) hacer
    f<-p/a
    p<-p+5
    escribir "la fueza es ",f
    
   FinMientras
  2:
   escribir "masa"
   leer m
   inicial<-5
   h<-inicial
   g<-9.8
   mientras (h<10) hacer
    v<-g*m*h
    h<-h+0.5
    escribir "la velocidad es",v
    
   FinMientras
    
   3:
    escribir "intencidad de corriente"
    leer Ib
    Inicial<-110
    v<-inicial
    mientras (v<=220) hacer
     p<-v*t
     v<-v+10
     escribir "la potencia es",p
    FinMientras
   4:
    escribir " corriente de base "
    leer ib
    inicial<-1
    ic<-inicial
    mientras (ic<=5) Hacer
     b<-ic*ib
     ic<-ic+0.2
     escribir "la ganacia es " ,b
     
    FinMientras
    de otro modo
                escribir "no existe le opcion"
    
   
 
 
     FinSegun
     finproceso