Trabalho algoritmo G1 ulbra

trabalho_g1
Var
Resp: char;
Inicio;
Escrever (´Responda as perguntas a seguir com "s" para sim e "n" para não para escolher um animal.');
Escrever (´O animal é da America do Sul?');
Ler (Resp);
Se (Resp=´s´) entao
Inicio;
Escrever (´O animal é do Brasil?´);
Ler (Resp);
Se (Resp=´s´) entao
Inicio;
Escrever (´O animal é uma Ave?´);
Ler (Resp);
Se (Resp=´s´) entao
Escrever (´O animal que você escolheu foi o Papagaio.´)
Senao
Inicio;
Escrever (´O animal é um Mamífero?´);
Ler (Resp);
Se (Resp=´s´) entao
Inicio;
Escrever (´O animal é Herbivoro?´);
Ler (Resp);
Se (Resp=´s´) entao
Escrever (´O animal que você escolheu foi a Anta.´)
Senao
Inicio;
Escrever (´O animal é Carnívoro?´);
Ler (Resp);
Se (Resp=´s´) entao
Escrever (´O animal que você escolheu foi a Onça.)
Senao
Escrever (´Animal inexistente´);
Fim_se;
Fim;
Fim_se;
Fim
Senao
Escrever (`Animal inexistente');
Fim_se;
Fim;

Fim_se;
Fim
Senao
Inicio;
Escrever (´O animal é da Argentina?´);
Ler (Resp);
Se (Resp=´s´) entao
Inicio;
Escrever (´O animal é uma Ave?´);
Ler (Resp);
Se( Resp='s´) entao
Escrever (´O animal que você escolheu foi o Condor´)
Senao
Escrever (´Animal inexistente´);
Fim_se;
Fim
Senao
Inicio;
Escrever (´O animal é do Chile?´);
Ler (Resp);
Se (Resp=´s´) entao
Inicio;
Escrever (´O animal é Mamífero?´);
Ler (Resp);
Se (Resp=´s´) entao
Escrever (´O animal que você escolheu foi o Huemul´)
Senao
Inicio;
Escrever (´O animal é Marítimo?´);
Ler (Resp);
Se (Resp=´s´) entao
Escrever (´O animal que você escolheu foi o Polvo Gigante´)
Senao
Escrever (´Animal inexistente´);
Fim_se;
Fim;
Fim_se;
Fim
Senao
Escrever (´Animal inexistente´);
Fim_se;
Fim;
Fim_se;
Fim;
Fim_se;
Fim
Senao
Escrever (´Animal inexistente´);
Fim_se;
Fim.