Методом Монте-Карло определить площадь фигуры

begin
  var g:=0.0;
  var h:=2;
  while h<=8 do
  begin
    g:=g+h*2;
    h:=h+2;
  end;
  g:=g-2*8/2;
  //
  var m:=0.0;
  randomize;
  var n:=10000;
  for var i:=1 to n do
  begin
    var x:=random(65)/8;
    var y:=random(65)/8;
    var l:=Int(x/2)*2;
    if(x>=l)and(x<=l+2)and(y<=l+2)and(y>=x/4)then
      m:=m+1;
  end;
  m:=8*8*m/n;
  writeln(m,' ',g);
end.

##
  var g := 32.0; //4 * (4 + 1) / 2 * 4 - 2 * 8 / 2;
  var (m, n) := (0, 10000);
  loop n do
    begin
      var (x, y) := (8 * random, 8 * random);
      if (y >= x / 4) and (y <= int(x / 2) * 2 + 2) then m += 1
    end;
  $'Площадь по методу Монте-Карло ({n} точек): {8 * 8 / n * m}'.Println;
  $'Точное значение площади: {g}'.Println

## uses PlotWPF;
 
function dist := 7 * Random + Random;
 
var a := ArrGen(100_000, i->Round(dist*100));
 
new LineGraphWPF(0, 800, x->a.CountOf(x.Round));