Proceso para obtener el total de una lista de productos comprados.

Proceso lista
definir a,b,d,prec,total Como Real;
Definir nombre,c Como Caracter;
Definir e como entero;
b<-0;
total<-0;
Escribir "Nombre del Cliente: ";
Leer nombre;
Escribir "ingrese el numero de productos a ingresar";
Leer e;
Repetir
Escribir "Nombre del Producto: ",b;
Leer nombre;
Escribir "Cantidad de Producto: ";
Leer a;
Escribir "Precio: ";
Leer d;
prec<-a*d;
b<-b+1;
Escribir "total producto", b,"=","$",prec;
total<-total+prec;
Hasta Que b=e
Escribir "el total es de:", "$", total;
FinProceso