Proceso descuento
Definir d1,r,rf Como Entero;
Escribir "Ingrese cantidad de Dinero:";
Leer d1;
r<-d1*0.20;
rf<-d1-r;
Escribir "El Resultado Final:",rf;
FinProceso