1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

program boese_sechs;
var i,wurf,spielstand : integer;
var e,j,n: string;
begin
  writeln('Spielregeln: Es wird solange gewuerfelt bis der Spieler eine 6 Wuerfelt oder man den Zug beendet.');
  writeln('Sobald die Zahl 6 gewuerfelt wird ist der Zug vorbei und die Punkte werden auf 0 gesetzt.');
  writeln('Die Punktezahl ergibt sich aus der Augenzahl des Wuerfels');
  writeln('Ziel ist es die Hoehere Punktzahl zu erreichen. Die Obergrenze liegt bei 100');
  writeln('Druecke Enter um das Spiel zu starten!');
  readln();
  randomize();

  for i:=1 to 100 do
    wurf:=random(6)+1;
  if (wurf<5) then
    spielstand:=spielstand+wurf else
    writeln('Du hast eine 6 gewuerfelt und Verloren! ');

  writeln('Dein Spielstand ist: ',spielstand);
  writeln('Willst du weiter spielen? Dann druecke "Enter"');
  readln();
end.