Pseudocódigo 05

Calcular el descuento de un articulo en porcentaje  y finalmente aumentarle  su IVA en porcentaje.

Proceso Descuento_e_IVA //Cruz Sosa Aldo Ing.Biomedica "B"
    definir inicial,porcentaje,iva,descuento,final, precioConIVA, iva2, total como real;
    escribir " Dar precio inicial ";
    leer inicial;
    escribir " Dar descuento en porcentaje ";
    leer porcentaje;
    descuento<-(inicial*porcentaje/100)-inicial;
    escribir " final: ",descuento;
    escribir " pedir Porcentaje de IVA ";
    leer iva;
    iva2<-iva/100*descuento;
    escribir " precioConIVA: ",iva2;
    total<-iva2+descuento;
    escribir " El total Es: ",total;
FinProceso