Algoritmo "Sem nome"
Var
categoria: caractere
tipoc: caractere
diarias: inteiro
vlr_diaria: real
vlr_total: real
desconto: real
Inicio
escreva("Escolha a categoria do veículo (1, 2 ou 3): ")
leia(categoria)
escreva("Digite a qtd de diárias: ")
leia(diarias)
se categoria = "1" então
vlr_diaria <- 299.99
escreval("Categoria: Popular")
fimse
se categoria = "2" então
vlr_diaria <- 399.99
escreval("Categoria: Hatch ou Sedan Intermediário")
fimse
se categoria = "3" então
vlr_diaria <- 499.99
escreval("Categoria: SUV ou Sedan Luxo")
fimse
escreval("Tipo Categoria: ", tipoc)
escreval("Qtd de diárias: ", diarias)
escreval("Vlr da diária: R$ ", vlr_diaria)
se diarias <= 6 então
desconto <- 0
fimse
se (diarias <= 14) e (diarias >= 7) então
desconto <- 0.05
fimse
se (diarias >=15) então
desconto <- 0.1
fimse
vlr_total <- diarias * vlr_diaria * (1 - desconto)
escreval("Valor total do aluguel: R$ ", vlr_total)
Fimalgoritmo
Não mudei muita coisa, só apaguei os "Senao Se" e iniciei outro comando "Se" e finalizei todos com "FimSe"
Além disso, mudei levemente a parte de baixo para funcionar melhor e novamente tirando os "Senao Se" e iniciando novos "Se"
Aqui funcionou, mas não sei se é isso que você quer (sou iniciante)
Também daria pra você mudar a primeira parte por "Escolha (categoria)
Caso 1
vlr_diaria <- 299.99
Escreval (etc etc)
Caso 2
vlr_diaria <- 399.99
Escreval (etc etc)
e por ai vai