Bonjour un ami et moi avons commencé la programmation en Pascal 
Ensemble on fait de petites choses pour s'entrainer, en ce moment mon ami crée un QCM sur la Géographie, MAIS il a une erreur que ni lui ni moi n'arrivons a identifier, c'est surement une très bête faute, mais on ne trouve pas. Donc voila le code:
program geo;
var question_A, question_B, question_C, question_D, question_E, question_F, question_G, question_H, question_I, question_J:integer; a:string;
points,points2,points3,points4,points5,points6,poi
nts7,points8,points9,points10:word;
begin
writeln('=== Question_A ===');
writeln;
writeln('Parmi les pays suivant, quelle est le plus peuple?');
writeln('1. Espagne');
writeln('2. France');
writeln('3. Italie');
writeln('4. Allemagne');
points:=1;
readln(question_A);
writeln;
case question_A of
1 : writeln('Vous avez repondu l"Espagne, mais ce n"est pas ca !');
2 : writeln('Vous avez repondu la France, mais ce n"est pas ca !');
3 : writeln('Vous avez repondu l"Italie, mais ce n"est pas ca !');
4 : writeln('Vous avez repondu l"Allemagne, et vous avez raison !');
else writeln('Vous n''avez pas rentre un bon nombre, desole !');
end;
if points =1
then
begin
writeln('Bravo, vous avez 1 point !');
readln;
end;
begin
writeln('=== Question_B ===');
writeln;
writeln('Parmis les ports suivant, quelle est le plus grand?');
writeln('1. Rotterdam');
writeln('2. Shangai');
points2:=1;
writeln('3. Singapour');
writeln('4.New York');
readln(question_B);
writeln;
case question_B of
1 : writeln('Vous avez repondu Rotterdam mais c"est faux !');
2 : writeln('Vous avez repondu Shangai et vous avez eu raison car c"est la bonne reponse !');
3 : writeln('Vous avez repondu Singapour mais c"est faux !');
4 : writeln('Vous avez repondu New York mais c"est faux!');
else writeln('Vous n''avez pas rentre un bon nombre, desole !');
end;
if points2 =1
then
begin
writeln('Bravo, vous avez 1 point');
readln;
end ;
begin
writeln('=== Question_C ===');
writeln;
writeln('Quelle est la plus haute stucture humaine du monde?');
writeln('1. La tour CN');
writeln('2. Tapei01');
writeln('3. Empire State Building');
writeln('4. Burj Dubai');
points3:=1;
readln(question_C);
writeln;
case question_C of
1 : writeln('Vous avez repondu la tour cn mais ce n"est pas elle !');
2 : writeln('Vous avez repondu Tapei 01 mais ce n"est pas elle !');
3 : writeln('Vous avez repondu Empire state Building mais ce n"est pas lui !');
4 : writeln('Vous avez repondu Burj dubai et vous avez raison (elle culmine a 818m de haut!)');
else writeln('Vous n''avez pas rentre un bon nombre, desole !');
end;
if points3 =1
then
begin
writeln('Bravo, vous avez 1 point');
readln;
end;
begin
writeln('=== Question_D ===');
writeln;
writeln('Ou ce trouve le Grand Desert de Victoria?');
writeln('1. Australie');
points4:=1;
writeln('2. Etats-Unis');
writeln('3. Maroc');
writeln('4. Egypte');
readln(question_D);
writeln;
case question_D of
1 : writeln('Vous avez repondu Australie et c"exact! Bravo a vous!');
2 : writeln('Vous avez repondu Etats-Unis mais ce n"est pas le cas !');
3 : writeln('Vous avez repondu Maroc mais ce n"est pas le cas !');
4 : writeln('Vous avez repondu Egypte mais ce n"est pas le cas !');
else writeln('Vous n''avez pas rentre un bon nombre, desole !');
end;
if points4 =1
then
begin
writeln('Bravo, vous avez un point');
readln;
end;
begin
writeln('=== Question_E ===');
writeln;
writeln('Quelle est la capital du Canada?');
writeln('1. Montreal');
writeln('2. Ottawa');
points5:=1;
writeln('3. Toronto');
writeln('4. Vancouver');
readln(question_E);
writeln;
case question_E of
1 : writeln('Vous avez repondu Montreal mais ce n"est pas ca !');
2 : writeln('Vous avez repondu Ottawa et c"est exact !');
3 : writeln('Vous avez repondu Toronto mais ce n"est pas ca !');
4 : writeln('Vous avez repondu Vancouver mais ce n"est pas le cas !');
else writeln('Vous n''avez pas rentre un bon nombre, desole !');
end;
if points5 =1
then
begin
writeln('Bravo, vous avez 1 point');
readln;
end;
begin
writeln('=== Question_F ===');
writeln;
writeln('Quelle est la ville la plus peuplé aux monde?');
writeln('1. Tokyo');
points6:=1;
writeln('2. New York');
writeln('3. Pekin');
writeln('4. New Delhi');
readln(question_F);
writeln;
case question_F of
1 : writeln('Vous avez repondu tokyo et c"est la bonnnnnne reponse !');
2 : writeln('Vous avez repondu New York mais ce n"est pas le cas !');
3 : writeln('Vous avez repondu Pekin mais ce n"est pas ca !');
4 : writeln('Vous avez repondu New Delhi mais ce n"est pas le cas !');
else writeln('Vous n''avez pas rentre un bon nombre, desole !');
end;
if points6 =1
then
begin
writeln('Bravo, vous avez 1 point');
readln;
end;
begin
writeln('=== Question_G ===');
writeln;
writeln('De combien d"habitant est peuple New York?');
writeln('1. 8 214 426');
points7:=1;
writeln('2. 7.596.235');
writeln('3. 10.254.981');
writeln('4. 12.456.193');
readln(question_G);
writeln;
case question_G of
1 : writeln('Vous avez repondu 8 214 426 et c"est tout à fait ca !');
2 : writeln('Vous avez repondu 7.596.235 mais c"est faux !');
3 : writeln('Vous avez repondu 10.254.981 mais c"est faux !');
4 : writeln('Vous avez repondu 12.456.193 mais c"est faux !');
else writeln('Vous n''avez pas rentre un bon nombre, desole !');
end;
if points7 =1
then
begin
writeln('Bravo, vous avez 1 point');
readln;
end;
begin
writeln('=== Question_H ===');
writeln;
writeln('Ou ce trouve le Mont Blanc?');
writeln('1. Entre l"Italie et la Suisse');
writeln('2. Entre la Suisse et la France');
writeln('3. Entre la France et l"Italie');
points8:=1;
writeln('4. Entre l"Italie et l"Allemagne');
readln(question_H);
writeln;
case question_H of
1 : writeln('Vous avez repondu l"Italie et la Suisse mais ce n"est pas là !');
2 : writeln('Vous avez repondu la Suisse et la France mais ce n"est pas là !');
3 : writeln('Vous avez repondu la France et l"Italie et c"est bien ca !');
4 : writeln('Vous avez repondu l"Italie et l"Allemagne mais ce n"est pas là!');
else writeln('Vous n''avez pas rentre un bon nombre, desole !');
end;
if points8 =1
then
begin
writeln('Bravo, vous avez 1 point');
readln;
end;
begin
writeln('=== Question_I ===');
writeln;
writeln('Helsinki est la capital de quel pays?');
writeln('1. Suede');
writeln('2. Norvege');
writeln('3. Danemark');
writeln('4. Finlande');
points9:= 1;
readln(question_I);
writeln;
case question_I of
1 : writeln('Vous avez repondu Suede mais ce n"est pas ca !');
2 : writeln('Vous avez repondu Norvege mais ce n"est pas ca !');
3 : writeln('Vous avez repondu Danemark mais ce n"est pas ca !');
4 : writeln('Vous avez repondu Finlande et c"est la bonne reponse !');
else writeln('Vous n''avez pas rentre un bon nombre, desole !');
end;
if points9 =1
then
begin
writeln('Bravo, vous avez 1 point');
readln;
end;
begin
writeln('=== Question_J ===');
writeln;
writeln('Dans quel pays ce trouve Elsenborn?');
writeln('1. Allemagne');
writeln('2. Belgique');
points10:= 1;
writeln('3. Suisse');
writeln('4. Danemark');
readln(question_J);
writeln;
case question_J of
1 : writeln('Vous avez repondu Allemagne mais ce n"est pas la bonne reponse !');
2 : writeln('Vous avez repondu Belgique et c"est exact ! Vous etes tres fort! ');
3 : writeln('Vous avez repondu Suisse mais ce n"est pas la bonne reponse !');
4 : writeln('Vous avez repondu Danemark mais ce n"est pas la bonne reponse !');
else writeln('Vous n''avez pas rentre un bon nombre, desole !');
end;
if points10 =1
then
begin
writeln('Bravo vous avez 1 point');
readln;
end;
end;
if
points+points2+points3+points4+points5+points6+poi
nts7+points8+points9+points10 <=0
then
begin
writeln('Vous avez 0/10, 0? no comment...');
readln;
end;
if
points+points2+points3+points4+points5+points6+poi
nts7+points8+points9+points10 =1
then
begin
writeln('Vous avez 1/10, vous n"etes pas tres geographie...');
readln;
end;
if
points+points2+points3+points4+points5+points6+poi
nts7+points8+points9+points10 =2
then
begin
writeln('Vous avez 2/10, c"est pas terrible...');
readln;
end;
if
points+points2+points3+points4+points5+points6+poi
nts7+points8+points9+points10 =3
then
begin
writeln('Vous avez 3/10, pas super...');
readln;
end;
if
points+points2+points3+points4+points5+points6+poi
nts7+points8+points9+points10 =4
then
begin
writeln('Vous avez 4/10, proche de la moyene mais pas la moyene 
.');
readln;
end;
if
points+points2+points3+points4+points5+points6+poi
nts7+points8+points9+points10 =5
then
begin
writeln('Vous avez 5/10, tout juste la moyene !');
readln;
end;
if
points+points2+points3+points4+points5+points6+poi
nts7+points8+points9+points10 =6
then
begin
writeln('Vous avez 6/10, pas mal...');
readln;
end;
if
points+points2+points3+points4+points5+points6+poi
nts7+points8+points9+points10 =7
then
begin
writeln('Vous avez 7/10, bien!');
readln;
end;
if
points+points2+points3+points4+points5+points6+poi
nts7+points8+points9+points10 =8
then
begin
writeln('Vous avez 8/10, tres bien!');
readln;
end;
if
points+points2+points3+points4+points5+points6+poi
nts7+points8+points9+points10 =9
then
begin
writeln('Vous avez 9/10, excellent !');
readln;
end;
if
points+points2+points3+points4+points5+points6+poi
nts7+points8+points9+points10 >=10
then
begin
writeln('Vous avez 10/10, parfait! Vous etes un expert en geographie !(ou un tricheur...)');
readln;
end;
writeln('C"est la fin de ce Quizz, qu"en avez-vous pensez? !');
readln(a);
writeln(' ', a, ' ? Merci et a bientot pour d"autres fonctionalites ;) ');
readln;
End;
End.
Désolé pour le pavé 
