ASDSAD

definir sacos,precio como entero;
    definir cliente como caracter;
    //
    escribir "****Distribuidora de Cementos Duoc****";
    escribir "Ingrese cantidad de sacos";
    leer sacos;
    //
    si (sacos >0 & sacos <1001)Entonces
        escribir "[F]Frecuente [N]Nuevo";
        escribir "Ingrese tipo de cliente";
        leer cliente;
        cliente=Mayusculas(cliente);
        si (cliente = 'F' || cliente = 'N') Entonces
            si(sacos <11 & cliente = 'F')Entonces
                precio = 5000;
            Sino
                si(sacos <11)entonces
                    precio = 6000;
                Sino
                    si (sacos >10 & cliente = 'F') Entonces
                        precio = 3000;
                    Sino
                        precio = 4000;
                    FinSi
                finsi
            finsi
                escribir "Total pagar: $",precio*sacos;
        Sino
            escribir "ERROR. cliente debe ser F o N";
        FinSi
    Sino
        escribir "ERROR. cantidad de sacos debe ser entre 1 y 1000";
    FinSi
FinProceso