Interagir com o usuário

Vamos realizar um pequeno procedimento que pede ao utilizador o seu sobrenome, o seu nome e a sua idade. Ao fim do questionário, o procedimento recapitulará as respostas:

Seu nome é:........
Seu sobrenome é: .......
Sua idade é: .......
Se você é demenor ou de maior

PARA ISSO, USAREMOS AS SEGUINTES PRIMITIVAS:

• leia: leia [Qual é a sua idade? ] "a
  Cartaz uma caixa de diálogo que tem por título o texto contido na lista (aqui, Qual é a sua idade?). A resposta dada pelo utilizador é memorizada sob a forma de uma lista na variável :a. Por exemplo, se escrevermos 20, a variável :a conterá [20]
  
• atr: atr "a 30
  
  Atribui o valor 30 à variável :a
  
• sentença, sn: sentença [30 k] "a
  
  Acrescenta um valor numa lista. Se este valor for uma lista, juntará as duas listas em uma.
  

  sentença [30 k] "a ---> [30 k a]
  sentença [1 2 3] 4 ---> [1 2 3 4]
  sentença [1 2 3] [4 5 6] ---> [1 2 3 4 5 6]
  

• pri: Devolve o primeiro elemento contido numa lista:

  mostre pri [4 5 6]  ---> 4
  mostre pri [comentário aqui vai 8]  ----> comentário
  

Obtemos o seguinte código:

aprenda questao
leia [Qual é a sua idade?] "anos
# :anos contém então uma lista um elemento,
# podemos usar esse elemento armazenado em :anos
atr "anos pri :anos
leia [Qual é o seu sobrenome?] "sobrenome
leia [Qual é o seu nome?] "nome
mostre sentença [Seu sobrenome é: ] :sobrenome
mostre sentença [Seu nome é: ] :nome
mostre sentença [Sua idade é: ] :anos
se ou :anos>18 :anos=18 [mostre [Você é de maior]] [mostre [Você é de menor]]
fim