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