Proceso sin_titulo

           definir montopag, montocom, montodes, precio Como Real

           definir docenas, obsequio como Entero

           escribir "ingrese cuantas docenas: "

           leer docenas

           Escribir "ingrese el precio: "

           leer precio

           montocom <- docenas * precio;

           Si docenas > 3 Entonces

                    montodes <- montocom * 0.15

                    obsequio <- docenas - 3;

           Sino

                    montodes <- montocom * 0.10

                    obsequio <- 0;

           FinSi

           montopag <- montocom - montodes

           imprimir "monto a pagar ", montopag

           imprimir "obsequios: ", obsequio;

FinProceso