2 algoritmo de valor a pagar por un articulo

var cant, valor, valorp:numerico
inicio
    cls()
    imprimir ( " digite el valor  de los art " )
    leer (valor)
    imprimir ( " digite la cnt de los art " )
    leer (cant)
  valorp = valor * cant
    si (valorp>50000){
    valorp=valorp*0.80
    }
    imprimir ( " el valor a pagar es valorp" , valorp)
fin