Preciso de ajuda para fazer um programa que seja um quis. A pessoa deve responder 5 perguntas que valem 1 ponto. Caso ela responda corretamente, ela vai acumulando 1 ponto. Ao final informar quantos pontos a pessoa fez. As respostas para as perguntas devem ser SIM(1) ou NÃO(0).
Mas está acontecendo esse erro, alguém consegue me ajudar?
Program Pzim ;
var nota,r1,r2,r3,r4,r5: String;
Begin
Writeln('Bem-vindo ao quis de Perguntas');
Writeln('Por favor responda (S) para sim ou (N) para não, e em seguida pressione Enter.');
Writeln('Cada pergunta tem o Peso de 1 Ponto, e no final das 5 perguntas iremos mostrar a sua Nota. ');
Write('O criador da Apple é o Steve Jobs? ');
Read(r1);
if r1 = 'S' then
r1:=1;
else
r1 := 0;
Write('O Brasil foi descoberto em 22 de abril de 1500? ');
Read(r2);
if r2 = 'S' then
r2 := 1;
else
r2 := 0;
Write('A Independência do Brasil foi em 7 de novembro de 1822');
Read(r3);
if r3 = 'S' then
r3 := 1;
else
r3 := 0;
Write('A Rede Social mais usado no Mundo é o Twitter?');
Read(r4);
if r4 = 'S' then
r4 := 1;
else
r4 := 0;
Write('O facebook foi inventado no ano de 2004?');
Read(r5);
if r5 = 'S' then
r5 := 1;
else
r5 := 0;
Write('Muito bem, sua nota foi: ', + r1 + r2 + r3 + r4 + r5),
Readkey
End.