Algoritmo "Motor"
funcao somaCusto(contador: inteiro;var resultado: inteiro): inteiro

inicio

retorne contador + resultado

fimfuncao

funcao somaLucro(cont: inteiro;var res: inteiro): inteiro
inicio
retorne cont + res
fimfuncao


Var
   Quantidade:vetor[1..12,1..2] de inteiro
   CL: vetor[1..2,1..2] de inteiro
   loop1:inteiro
   loop2,loop3,loop4, loop5, loop6, loop7, loop8, loop9:inteiro
   numero: inteiro
   multiplica,totalcusto,totallucro: inteiro
   final: vetor[1..12,1..2] de inteiro
Inicio

   para loop1 de 1 ate 12 faca
      para loop2 de 1 ate 2 faca
         escreval("Mês ",loop1, " Motor ",loop2)
         leia(Quantidade[loop1,loop2])
      fimpara
   fimpara

   para loop3 de 1 ate 12 faca

      escreval(Quantidade[loop3,1], Quantidade[loop3,2])

   fimpara

   para loop4 de 1 ate 2 faca
      para loop5 de 1 ate 2 faca
         escreval("Insira o custo e após o lucro do motor", loop4)
         leia (CL[loop4,loop5])
      fimpara
   fimpara

   para loop6 de 1 ate 2 faca

   fimpara

   para loop7 de 1 ate 12 faca



      final[loop7,1] <- ((Quantidade[loop7,1] * CL[1,1]) + (Quantidade[loop7,2] * CL[2,1]))
      totalcusto <- somaCusto(final[loop7,1],totalcusto)

   fimpara
   para loop8 de 1 ate 12 faca
      final[loop8, 2] <- ((Quantidade[loop8,1] * CL[1,2]) + (Quantidade[loop8,2] * CL[2,2]))
      totallucro <- somaLucro(final[loop8,2],totallucro)
   fimpara
   para loop9 de 1 ate 12 faca
      escreval(final[loop9,1],final[loop9,2])
   fimpara

   escreval( " TOTAL DE CUSTOS:: " , totalcusto, " TOTAL DE LUCROS: ",totallucro)

Fimalgoritmo