SOLUCIÓN
Algoritmo
Función calcularCostdeArtic[c,n]
Retornar c*n
vst=0 (valor subtotal)
vt=0 (valor total)
Mostrar mensaje “cuantos artículos va a pedir”
Cantidad=leer cantidad de artículos
//Programa principal
Mientras cantidad !=0
Mostrar mensaje “cuál es el nombre del articulo”
Nombre=leer nombre ingresado
Mostrar mensaje “costo del precio del articulo”
Precio=leer costo ingresado
f = calcularCostdeArtic[Precio,Cantidad]
vst=vst+f
fin mientras
Mostrar mensaje “el cliente esta registrado”
cliente_Registra=Leer el registro del cliente (verdadero/falso)
si cliente_registra = verdadero
vt=vst-vst*0.1
de lo contrario
vt=vst
mostrar mensaje “valor total a pagar” + vt