program dobalas;
uses Crt, Graph3;
const
  kiserlet=100000;
var
 i, jo : longint;
 p     : real;
 x,y   : integer;
begin
 { grafika ind�t�sa }
 GraphColorMode; Palette(2);
 { n�gyzet kirajzol�sa }
 Draw(0,0,0,199,1); Draw(0,199,199,199,1);
 Draw(199,199,199,0,1); Draw(199,0,0,0,1);
 { v�letlen gener�tor ind�t�sa }
 Randomize;
 { az i ciklusindex �s a j� sz�ml�l� indul� �rt�k�nek be�ll�t�sa }
 i:=0; jo:=0;
 while i<kiserlet do
   begin
     { k�z�ppont gener�l�sa }
     x:=Random(200); y:=Random(200);
     { milyen messze van a k�z�ppontt�l,
          ha 100-on bel�l van, akkor pirossal
          ha k�v�l van, akkor z�lddel rajzoljuk ki }
     if (x-99)*(x-99)+(y-99)*(y-99)<=10000
        then begin Plot(x,y,2); Inc(jo); end
        else Plot(x,y,3);
     Inc(i);
   end;
 { a kapott relat�v val�sz�n�s�g kisz�mol�sa }
 p:=4*jo/kiserlet;
 GotoXY(27,7); Write('p=',p:9:8);
 repeat  until KeyPressed;
end.