VisualG Algoritmo está com erro

Danielle Garcia · 20 de março de 2018

Alguém pode me ajudar em identificar o erro desse algoritmo?

algoritmo "CODIMENTAÇÃO"
// Função : Se
// Autor : Danielle Garcia
// Data : 19/03/2018
// Seção de Declarações
var
   T, LE, C, R, L, PV, LR, DT: REAL
   TS: INTEIRO //(1 - BIG BOB; 2 - CHEESBURGUER)
   Q: INTEIRO

inicio
   // Seção de Comandos

   escreval ("Qual o tipo de sanduíche?(1 - big bob; 2 - chessburguer)")
   leia (TS)
   escreval ("Qual a quantidade vendida?")
   leia (Q)
   escreval ("Qual o tempo utilzado, em minutos?")
   leia (T)
   escreval ("Qual percentual de lucro desjado, em porcentagem?")
   leia (LE)
   Se (TS = 1) então
      C <- 3.098*Q
   senao
      Se (TS = 2) então
         C <- 1.657 * Q
      senao
      fimse
   fimse
   escreval ("O custo de fabricação dos sanduiches é:", C)
   PV <- ((C*(LE+100))/100)/Q
   escreval("O preço de venda unitária é:", PV)
   R <- PV*Q
   escreval ("A receita é:", R)
   L <- R - C
   escreval ("O lucro é:", L)
   DT <- (4*Q) - T
   Se (DT < 0) então
      escreval ("Tempo é maior do que o esperado. É necessário treinamento.", DT)
   senao
      SE (DT > 0) então
         escreval ("Tempo menor do que o esperado. Está dento do previsto.", DT)
      SENAO
      fimse
   FIMSE
fimalgoritmo