Rzut monetą

program moneta;
uses crt, graph;
var lo,lr,i,n:longint;
    x:byte; po,pr:real;
    klawisz:char;
    znak:char;
begin
  randomize;
  repeat
    clrscr;
    gotoxy(10,5);write('liczba rzutow n = ');readln(n);
    lo:=0;lr:=0;
    for i:=1 to n do
    begin
      x:=random(2);
      if x=1 then begin lo:=lo+1;znak:='O' end
      else begin lr:=lr+1; znak:='R'  end;
      po:=(lo/n)*100;
      pr:=(lr/n)*100;
      gotoxy(20,7);write(znak);
      gotoxy(10,10);write(' orlow: ',lo,'        ',po:4:3,'%');
      gotoxy(10,12);write('reszek: ',lr,'        ',pr:4:3,'%');
    end;
    klawisz:=readkey;
  until klawisz=#27;
end.