How to put different texts for " Yes " and " no " in Visualg?

I recently started with programming, and I'm making an algorithm that guesses the age of the user, and I'm using Visualg to practice programming logic.

How to put sim or não commands in Visualg, and if the person chooses sim, present the text A, if they choose não, present the text B and continue to ask the next questions.

So far I've come to this Part: 

algoritmo "valores"
    var
        N1,S,S2,S3: inteiro
inicio
    Escreva ("Ola,vou adivinhar a sua idade.Pense em um numero de 1 a 10: ")
    Leia (N1)
    S <- N1 * 2
    Escreval ("Ok,multipliquei esse numero por 2 e a soma é ",S,".Agora agora vou adicionar 5")
    S2 <- S + 5
    Escreval ("A soma entre ",S," e 5 é ",S2,".Sabendo disso, vou multiplicar por 50")
    S3 <- S2 * 50
    Escreval ("A multiplicação de ",S2, " e 50 é ",S3,".")
    Esreval ("Você ja fez aniversario esse ano?")
fimalgoritmo
Author: YODA, 2016-11-10
Source

2 answers

You can use a variable X of the literal (text) type 

var
    N1,S,S2,S3: inteiro
    X: literal

Read X by assigning a value: 

Escreval ("Você ja fez aniversario esse ano?")
Leia(X)

Check if X, is equal to sim: 

se X = "sim" entao
    Escreval (A)
senao
    Escreval (B)
fimse

I hope I helped, if it is not clear, or you are having difficulty, just comment.

 6
Author: Vitor Subhi, 2016-11-10 22:24:02

Following the commands that the Vitor member provided me stayed like this and it worked.algoritmo "valores" var N1,S,S2,S3,Idade : inteiro Soma_tudo,Data_nascimento : inteiro Soma_tudo2,Idade2 : inteiro X: literal inicio Escreva ("Ola,vou adivinhar a sua idade.Em que ano você nasceu? ") Leia (Data_nascimento) Escreva ("Pense em um numero de 1 a 10: ") Leia (N1) S <- N1 * 2 Escreval ("Ok,multipliquei o ",N1," por 2 e o resultado é ",S,".Agora agora vou adicionar 5") S2 <- S + 5 Escreval ("A soma entre ",S," e 5 é ",S2,".Sabendo disso, vou multiplicar por 50") S3 <- S2 * 50 Escreval ("A multiplicação de ",S2, " e 50 é ",S3,".") Escreval ("Você ja fez aniversario esse ano? ") Leia (x) se X = "sim" entao Escreval ("Ok.Vou somar 1766 no resultado final.") Soma_tudo <- S3 + 1766 Escreval ("Somando ",S3," com 1766,obterei o resultado de ",Soma_tudo) Escreval ("Agora vou subtrair o resultado de ",Soma_tudo," com o valor do seu ano de nascimento,que no caso é",Data_nascimento) Idade <- Soma_tudo - Data_nascimento Escreva ("Deu ",Idade,".O primeiro digito é o numero que você pensou.Os outros 2 é a sua idade.") senao Escreval ("Ok.Vou somar 1765 no resultado final") Soma_tudo2 <- S3 + 1765 Escreval ("Somando ",S3," com 1765,obterei o resultado de ",Soma_tudo2) Escreval ("agora vou subtrair o resultado de ",soma_tudo2," com o valor do seu ano de nascimento, que é ",data_nascimento) Idade2 <- Soma_tudo2 - Data_nascimento Escreva ("Deu ",Idade2,".O primeiro digito é o numero que você pensou.Os outros 2 é a sua idade") fimse fimalgoritmo

 0
Author: Arthur, 2016-11-15 15:01:45