Определить методом Монте-Карло площадь треугольника, вершины которого имеют координаты (-1,0) ; (0,1) ; (1,0) Подсказка : треугольник заключен в прямоугольник со сторонами а=1 и b=2 Нужно в Паскале это сделать!!! Помогите, пожа...

Условие попадания точки M(x,y) в треугольник с указанными координатами вершин можно описать системой неравенств: [latex]\displaystyle \left\{\begin{matrix} y\geqslant 0 \\ y\leqslant x+1 \\ y\leqslant 1-x \end{matrix}\right[/latex] Если положить в методе Монте-Карло x∈(-1,1), y∉(0,1) для вещественных х,y, то площадь треугольника можно найти, как площадь прямоугольника, представленного в задании (она равна 2), умноженную на отношение количества точек, попавших в контур треугольника, к общему количеству точек. // PascalABC.NET 3.0, сборка 1160 от 05.02.2016 begin   var n:=100000;   var k:=Range(1,n).Select(e->Rec(2*Random()-1,Random())).     Where(e->(e.Item2>=0) and (e.Item2<=e.Item1+1) and     (e.Item2<=1-e.Item1)).Count;   Writeln(2*k/n:0:3) end. Тестовое решение: 1.001