Beginner: Münzwurf

[Klaus01]

Delphi-Quellcode:

program Muenzwurf;
   var n,x,Anzahl,Zufall, oddCount:Int64;
begin
  writeln('Muenzwurf');
  writeln('Wie oft soll die Muenze geworfen werden?');
  readln(Anzahl);
  oddCount := 0;
  for n:=0 to Anzahl do
   begin
     x:=n+1;
     Zufall:=random(x);
     If Odd(Zufall) then 
       begin 
         writeln('Kopf');
         inc(oddCount,1);
       end
     else 
       writeln('Zahl');
   end;
  readln();
end.

Grüße
Klaus