e: ", maior) escreval("O menor numero e: ", menor) FIMSEfimalgoritmoDownload arquivo alg.3 - Faca um programa que receba os dados a seguir de varios produtos: preco unitario, pais de origem (1- Brasil, 2- Portugal e 3 outros), meio de transporte (T terrestre, F fluvial e A aereo), carga perigosa (S- sim, N nao), finalize a entrada de dados com um preco invalido, ou seja, menor ou igual a zero e que calcule e mostre:O valor do imposto, usando a tabela a seguir. Preco unitario Percentual de imposto sobre o preco unitario Ate R$ 280,00 5.00% Maior que R$ 280,00 10.00% O valor do transporte usando a tabela a seguir Carga Perigosa Pais de Origem Valor do Transporte S 1 R$ 140,00 2 R$ 59,00 3 R$ 67,00 N 1 R$ 34,00 2 R$ 59,00 3 R$ 168,00 O valor do seguro, usando a regra a seguir: Os produtos que vem de Portugal e os produtos que utilizam transporte aereo pagam metade do valor do seu preco unitario como seguro.O preco final, ou seja, preco unitario mais imposto mais valor do transporte mais valor do seguro.O total dos impostos (somando impostos de todos os produtos). algoritmo "questao3"varprec_unit, pais, trans2, prec_total, seguro, porc_impos, imp, imp_total: realtrans, carga: caracterinicioimp_total<-0escreval("Digite o preco unitario: ")leia(prec_unit)ENQUANTO (prec_unit<0) FACA escreva("Valor invalido. Digite novamente: ") leia(prec_unit)FIMENQUANTOSE (prec_unit<>0) ENTAO REPITA escreval("Digite o pais de origem (1- Brasil, 2- Portugal e 3- outros):") leia(pais) ENQUANTO (pais<1) ou (pais>3) FACA escreval("Pais invalido. Digite novamente: ") leia(pais) FIMENQUANTO escreval("Digite o meio de transporte (T - terrestre, F - fluvial e A - aereo): ") leia(trans) ENQUANTO (trans<>"T") e (trans<>"F") e (trans<>"A") FACA escreval("Voce digitou um meio de transporte invalido. Digite novamente: ") leia(trans) FIMENQUANTO escreval("E carga perigosa (S - sim, N - nao): ") leia(carga) ENQUANTO (carga<>"S") e (carga<>"N") FACA escreval("Voce digitou uma tipo de carga invalido. Digite novamente: ") leia(carga) FIMENQUANTO SE (prec_unit<280) ou (prec_unit=280) ENTAO porc_impos<- prec_unit*5/100 SENAO SE (prec_unit>280) ENTAO porc_impos<- prec_unit*10/100 FIMSE FIMSE SE (carga="s") ENTAO SE (pais=1) ENTAO trans2<- 140 FIMSE SE (pais=2) ENTAO trans2<- 59 FIMSE SE (pais=3) ENTAO trans2<- 67 FIMSE SENAO SE (carga="n") ENTAO SE (pais=1) ENTAO trans2<- 34 FIMSE SE (pais=2) ENTAO trans2<- 59 FIMSE SE (trans=3) ENTAO trans2<- 168 FIMSE FIMSE FIMSE SE (pais=2) ou (trans="a") ENTAO seguro<- prec_unit/2 SENAO SE (pais<>2) ou (trans<>"a") ENTAO seguro<-0 FIMSE FIMSE prec_total<- prec_unit+porc_impos+seguro+trans2 imp<- porc_impos imp_total<- imp_total+imp prec_total<- prec_unit+porc_impos+seguro+trans2 limpatela escreval("") escreval("O imposto unitario custa: ",porc_impos," reais") escreval("O transporte custa: ",trans2," reais") escreval("O seguro custa: ",seguro," reais") escreval("O preco final e: ",prec_total," reais") escreval("") escreval("Digite o proximo valor unitario: ") leia(prec_unit) ENQUANTO (prec_unit<0) FACA escreva("Valor invalido. Digite novamente: ") leia(prec_unit) FIMENQUANTO ATE (prec_unit=0)SENAO escreval("Voce nao digitou nenhum valor valido.")FIMSEescreval("O total dos impostos e: ",imp_total," reais")fimalgoritmoDownload arquivo alg.4 - Faca um programa que receba 10 numeros inteiros e mostre a quantidade de numeros primos dentre os numeros que foram digitados.algoritmo "primo"var x, num, soma_prim, divid, z: inteiroinicio soma_prim<- 0 PARA x de 1 ate 10 FACA escreval("Digite o ",x," numero: ") leia(num) divid<- 0 PARA z de 1 ate num FACA SE (num mod z=0) ENTAO divid<- divid+1