Galera estava fazendo uma explicação pro professor que e pra entregar na sexta dia 11/07, ele pediu pra gente fazer uma explicação do que era RPG.
Ai fiz um programinha no Pascal ai deu um erro alguém me ajuda?
Program pesquisa;
Var S, N, Pergunta: String;
Begin
TextBackground (green) ;
Textcolor (White) ;
Writeln ('olá, meu amigo(a)') ;
readln;
writeln ('Essa pesquisa foi feita por Enzo Felipe');
readln;
writeln ('Ele é um cara muito lindo e maravilhoso');
readln;
writeln ('voce sabe o que e "RPG" ?');
readln;
writeln ('Digite sua resposta (S)para sim ou (N)para nao:');
Readln(Pergunta);
If Pergunta = 'S' Then
Begin
Writeln('Que bom mas para explicar "RPG", a melhor definição seria um jogo em que os jogadores assumem papéis de personagens e criam narrativas colaborativamente.');
writeln('O progresso de um jogo se dá de acordo com um sistema de regras predeterminado, dentro das quais os jogadores podem improvisar livremente.');
Readln(S);
writeln('Opa, voce quer saber o que significa a sigla "RPG"?');
writeln('Digite sua resposta (S)para sim ou (N)para nao:');
Readln(Pergunta);
If Pergunta = 'S' Then
Begin
Writeln('Que bom você tem uma sede de conhecimento incrivel, e porque os primeiros "RPG" eram de dados ai ele ficou conhecido como Role-playing game');
writeln('Que na sua tradução seria "jogo de rolamento" incrivel não é');
writeln('Bom já que você chegou até o final, pode curtir nosso game');
writeln('Bom, se tiver qualquer duvida entre em contato conosco (71)9.9853-5631');
Readln(S);
End;
If Pergunta = 'N' Then
Begin
Writeln('Okay, qualquer duvida entre em contato conosco (71)9.9853-5631');
Readln(N);
End;
If Pergunta = 'N' Then
Begin
Writeln('Okay, voce vai aprender agora, RPG e um jogo em que os jogadores assumem papéis de personagens e criam narrativas colaborativamente.');
writeln(' O progresso de um jogo se dá de acordo com um sistema de regras predeterminado, dentro das quais os jogadores podem improvisar livremente.');
writeln('Opa, voce quer saber o que significa a sigla "RPG"?');
writeln('Digite sua resposta (S)para sim ou (N)para nao:');
readln(N);
Readln(Pergunta);
If Pergunta = 'S' Then
Begin
Writeln('Que bom você tem uma sede de conhecimento incrivel, e porque os primeiros "RPG" eram de dados ai ele ficou conhecido como Role-playing game');
writeln('Que na sua tradução seria "jogo de rolamento" incrivel não é');
writeln('Bom já que você chegou até o final, pode curtir nosso game');
writeln('Bom, se tiver qualquer duvida entre em contato conosco (71)9.9853-5631');
Readln(S);
End;
If Pergunta = 'N' Then
Begin
Writeln('Okay, qualquer duvida entre em contato conosco (71)9.9853-5631');
Readln(N);
End;
End.
Ai o erro foi esse.
Erro sintatico na linha 61
''.'' não esperado