Portugol,algorítimo exemplo:

2 – Considere que a loja “Vem Aqui Que o Negócio é de Etshiqueta” vende produtos e
possibilita seus clientes pagarem de acordo com as seguintes condições: 
a) À vista = 10% de desconto 
b) Parcelado em até 2 vezes = mesmo valor de à vista 
c) Parcelado em mais de 2 e até 5 vezes = Juros de R$ 2% do valor de à vista, em cima de 
cada parcela. 
OBS: A loja não vende em mais de 5 vezes.

var
tipo, qtdparcelas: inteiro
preco, total, parcela: real
inicio
// Seção de Comandos
escreval("Vem Aqui Que o Negócio é de Etshiqueta")
escreval("Digite o preço do produto")
leia(preco)
escreval("1 A vista")
escreval("2 Parcelado em 2 vezes")
escreval("3 Parcelado de 2 à 5 vezes")
escreval("Selecione o tipo de pagamento")
leia(tipo)
se(tipo = 1) entao
total <- preco-(preco/100*10)
escreval( "O total com pagamento a vista e desconto de 10% é: " ,total)
fimse
se(tipo = 2)entao
parcela <- preco/2
escreval("O valor da parcela em duas vezes sem juros é: ", parcela)
fimse
se(tipo = 3)entao
escreval("Digite a quantidade de parcelas")
leia(qtdparcelas)
se(qtdparcelas <= 2)entao
escreval("O tipo de pagamento selecionado não é o correto")
senao
se(qtdparcelas >5)entao
escreval("A loja não realiza parcelamentos maiores do que cinco vezes")
senao
total <- preco+(preco/100*2)
parcela <- total/qtdparcelas
escreval("O valor da parcela em " ,qtdparcelas, " é de " ,parcela)
escreval("O valor total da compra com acrescimo de 2% é de" ,total)
fimse
fimse
fimse
fimalgoritmo