[Resolvido] Inserir opção Voltar - como eu faço?

Pessoal, tranquilos?? sou novo no forum, e tenho uma duvida para tirar com vocês, estou criando no VISUALG, um algoritmo que na opção: escreval("pensou?, Digite 1 para <SIM> ou 2 para <NAO>") , se você digitar 2 - NÃO, ele volte ao estado anterior, olhem aonde eu cheguei.

var

n1,n2,n3,d: inteiro

x1,x2,x3,x4,x5,x6,x7,x8,x9:real

s: caracter

N: caracter

inicio

escreval ("")

escreval ("***********************************************************************")

escreval ("*** Ao ler essa mensagem aperte enter e siga todas as instruções **")

escreval ("******************** boa brincadeira :P ***********************")

escreval ("")

escreva("pense em um numero : ")

leia(x2)

escreval("pensou?, Digite 1 para <SIM> ou 2 para <NAO>")

escreva("dobre esse numero")

leia(x4)

escreva("dobrou?")

leia(x5)

escreva("coloque aqui o numero em dobro")

Leia(n1)

escreva("acrecente mais 80")

leia(x6)

Escreva("agora com calma divida o numero por 2")

leia(x7)

escreva("coloque o resultado da divisao aqui")

leia(n2)

escreva("agora responda qual é a netade de 80?")

leia(n3)

d<-n2-n3

escreva("o numero q você penso foi",d)

fimalgoritmo

OBS: eu queria saber qual comando eu coloco para ele voltar para linha: escreva("pense em um numero : ")

obrigado pela força :)