Die Briten, der stammt aus einem umgebauten Traktor.

program Quiz;
uses crt;
var Fragen : Array [1..10] of string;
    Antwort: Array [1..10] of string;
 Ergebnis : Array [1..10] of char; 
 taste , abbrechen , startbildschirm : char;
 Quizzufall , Fehler : integer                               
                                                    
            (*Titelbildschirm*)

begin
clrscr;
gotoXY(1,1);
textcolor(green);
writeln('      /----------\            |           |         |       ----------     ');
writeln('     /            \           |           |         |                /     ');
writeln('    /              \          |           |         |               /      ');
writeln('   /                \         |           |         |              /       ');
writeln('  |                  |        |           |         |             /        ');
writeln('  |                  |        |           |         |            /         ');
writeln('   \                /         |           |         |           /          ');
writeln('    \             \/          |           |         |          /           ');
writeln('     \            /\          |           |         |         /            ');
writeln('      \          /  \         |           |         |        /             ');
writeln('       \________/    \        |___________|         |       /________      ');
writeln('');
gotoXY(1,20);
writeln('g: Start vom Quiz');
gotoXY(1,22);
writeln('a: Quizanleitung');

repeat

until keypressed;
if keypressed then startbildschirm := readkey;
if startbildschirm = 'g' then
 
begin

 Quiz;
 end;

if startbildschirm = 'a' then

  begin
 
Quizanleitung;
  end;
end;

procedure Quizanleitung();
            (*Quizanleitung und Infos*)
   begin

clrscr;

writeln('');

writeln('Das ist ein Quiz mit 10 Fragen aus verschiedenen ungeordneten Kategorien.');

writeln('');

writeln('Deine Fehler werden mitgezaehlt und angegeben, die Fragen werden zufaellig gemischt.');

writeln('');

writeln('Druecke L um das Quiz zu starten');

writeln('');

if keypressed then taste := readkey;

repeat
until
keypressed;

if taste='L'then

   begin
   Quiz;
   end;
  end;

procedure Quiz();             (*Quizhauptteil*)

Bei ︝fut United werden 15,25,35,50,100 k packs erscheinen! Da wird der Markt wie am Mittwoch zusammenbrechen! Verkauf deine Spieler jetzt.