programa
{
	inclua biblioteca Matematica --> mat
	funcao inicio()
	{
		cadeia scodigo[90], snome[90]
		real  svalor[90], squan[90], cal[90], total[90], totalf[90]
		inteiro iprodutos

		inteiro contador = 0
		escreva("Quantos produtos você deseja comprar? ")
		leia(iprodutos)

		para(inteiro i = 0; i < iprodutos; i++){
		escreva("Codigo do produto: ")
		leia(scodigo[i])
		escreva("Nome do produto: ")
		leia(snome[i])
		escreva("Valor do produto: ")
		leia(svalor[i])
		escreva("Quantidade de produto voce quer comprar: ")
		leia(squan[i])
		limpa()
				cal[contador] = svalor[contador] * squan[contador]

			total[contador] = total[contador] + cal[contador]
			contador = contador++

			totalf[contador] = total[contador]+ total[contador]

		}

escreva("\n########################################################")
escreva("\n#                      NOTA FISCAL                     #")
escreva("\n#                 RUA DESENVOLVIMENTO, N01             #")
escreva("\n#                 São Gabriel da Palha - ES            #")
escreva("\n########################################################")
escreva("\nCód.    Descrição            Unidade       Preço    Total")
escreva("\n--------------------------------------------------------")
para (inteiro contadorr = 0; contadorr <= iprodutos; contadorr++){
	escreva("\n", scodigo[contadorr],"\t ", snome[contadorr]
	, "\t ",svalor[contadorr], "\t",squan[contadorr], "\t", total[contadorr])

}

escreva("\n\nTotal: R$ ", totalf[contador])
escreva("\n--------------------------------------------------------")
escreva("\n		AGRADEÇEMOS PELA PREFERENCIA, VOLTE SEMPRE ")






//basico
	}
}