Jhonny livreiro

Algoritmo "semnome"
Var
   // Seção de Declarações das variáveis
   x: inteiro
   A, B, C: Real
   criterio: caracter

Inicio
   // Seção de Comandos, procedimento, funções, operadores, etc...
   leia(x)
   //para x de 0 ate 35 faca
      B:=(2.5+0.5*x)
      A:=(7.5+0.25*x)
      C:=(1.5+0.65*x)
      criterio:="A"
      se A>B entao
         A:=B
         criterio:="B"
      fimse
      se A>C entao
         a:=C
         criterio:="C"
      fimse
      escreval("Com o critério ", criterio, " levando ", x, " livros você vai pagar", A)
   //fimpara
Fimalgoritmo