algoritmo de evaluacion

var a,b:numerico
sexo:logico
inicio
cls()
     imprimir("digite cant boleta")
     leer(a)
  imprimir ("digite el valor de boleta")
    leer(b)
    imprimir("digite el sexo de la persona")
     leer(sexo)
    valorp=a*b
    si(sexo and a>=5){
    valorp= valorp*0,8
    }
    imprimir ("el valor de la boleta es " , valorp)
fin


var a,b suma,resta:numerico
inicio
cls()
imprimir ("digite el primr numero")
leer(a)
imprimir("el segundo numero")
leer(b)
si(a<b){
suma=a+b
imprimir ("la suma de los dos numeros es" , suma)
sino
resta =a-b
imprimir ("es resta", reta)
}
}
fin