tente isso funciona em VisuAlg 2.0 :) ... isso certo!! 100%
Var
n : inteiro
INICIO
escreval ( "digite uma numero:")
leia (n)
se ( n<50) ou (n=50) então
enquanto ( n<250) faca
n<- n*3
se ( n <250) então
escreval (n)
fimse
fimenquanto
senao
escreval ("invalid")
fimse
FIMALGORITMO