menghitung nilai pi dengan program pascal

program pi;
var
pi,x,y:real;
n1,n2,i:integer;
begin
    n1:=0;n2:=2;
   randomize ;
for i:=1 to 1000 do
      begin
       x:=random;
      y:=random;
      if (x*x+y*y)<=1 then n1:=n1+1
      else n2:=n2+1;
      end;
pi:=4*n1/(n1+n2)
writeln(pi);
end.