program zufall;

uses crt;

var i, ergebnis, x : byte;
    antwort : char;
    ende : boolean;

begin
  repeat
    clrscr;
    writeln ('Ein Bernoulliexperiment mit unbekanntem p wird 100 mal durchgeführt.');
    writeln;
    writeln ('1: Erfolg, 0: kein Erfolg, X zählt die Anzahl der Erfolge');
    writeln;
    x:=0;
    randomize;
    for i:= 1 to 100 do
        begin
          ergebnis:=random(99);
          if ergebnis<42
             then begin ergebnis:=1;
                        x := succ(x);
                  end
             else ergebnis:=0;
          write(i:3,': ',ergebnis:2,' ');
        end;
    writeln;
    writeln('X = ',x:3);
    writeln;
    write('nochmal? (j/n) ');
    antwort:=readkey;
    if antwort = 'n'
       then ende:=true
       else ende:=false;
  until ende;
end.