a,b e c)
Algoritmo  "semnome"
Var
a:real
b:inteiro
Inicio
escreva("Digite quantos dias voce pretende pagar:")
leia(b)
escreva("Digite o valor da compra:")
leia(a)
se (b=60) entao
escreva("Voce irá pagar: R$",a)
fimse
se (b=30) entao
escreva("Você irá pagar: R$", a - (a * 5 / 100))
fimse
se(b=90)entao
escreva("Você irá pagar: R$", a + (a * 5 / 100))
fimse
fimalgoritmo