Proceso descuento_medicamento
definir a,b,c Como Real;
Escribir "ingrese el costo del medicamento";
Leer a;
b<-a*0.10;
c<-a-b;
Escribir "el costo final es:",c;
FinProceso