Fiz em portugol
algoritmo "Primeiro Programa"
var
idade: inteiro
estudante: logico
inicio
escreval("Informe a idade: ")
leia(idade)
escreval("Você é estudante? (verdadeiro/falso)")
leia(estudante)
se (idade >= 18) ou (estudante) entao
escreva("Você tem direito ao desconto")
senao
escreva("Você não tem direito ao desconto")
fimse
fimalgoritmo