Da RelHaeuf nur zweimal verwendet - einmal zugewiesen und einmal ausgegeben - wird, kann man darauf auch verzichten (Datensparsamkeit!):
Delphi-Quellcode:
program Muenzwurf;
var
n, Anzahl, oddCount:Int64;
begin
Randomize;
writeln('Muenzwurf');
writeln('Wie oft soll die Muenze geworfen werden?');
readln(Anzahl);
oddCount:=0;
for n:=1 to Anzahl do
oddCount:=oddCount+random(2);
writeln('Relative Haeufigkeit von Kopf:',(oddCount/Anzahl)*100:6:2,'%');
readln();
end.