Código Delphi
[-]total := 0.0;
for i := 1 to CANT_DENOMINACIONES do
total := total + (Denominaciones[i].Valor * Denominaciones[i].Cantidad);
Estoy con Chris, eso es tarea para un chico de primaria. No veo donde está el problema... Si te explicaras mejor y nos describieras el problema y el contexto en el que estás evaluando quizá podríamos descubrir en donde está fallando la lógica.
¿La denominaciones y la cantidades son fijas? ¿La extraes de una base de datos? ¿Desde un archivo?
En términos abstractos el código que expuse es suficiente para ilustrar el procedimiento a aplicar. Ahora hay que bajar eso a tierra y aplicarlo a tu caso.
Saludos,