Proceso para calcular descuento del 10% al precio de un producto.

Proceso descuento
Definir a, b, c Como Real;
Escribir "ingrese precio";
Leer a;
b<-a*0.10;
c<-a-b;
Escribir "el descvuento es de: ", b;
Escribir "precio a pagar es: ", c;
FinProceso