Programa Comida

PROGRAMA CuentaComida

VAR
	elementos_compras, precio, total: Enteros		// Las variables son del tipo entero, sin inicialización


INICIO

	Imprimir("Bienvenido a IPSO-FACTO - Comida Rápida y Mucho Mas -");
	Imprimir("*****************************************************");
	Imprimir("Cuantos productos hay en su compra: ");
	Leer(elementos_compra);

	total = 0;		// Inicialización del Contador de Total

	Para i = 0 hasta elementos_compras hacer
		Imprimir("Precio del producto #%i: ", i);
		Leer(precio);
		total = total + precio;
	Fin_Para;

	Imprimir("El total de su compra es %i", total);
	Imprimir("Gracias por su compra en IPSO-FACTO - Comida Rápida y Mucho Mas -");

FIN