[Bargest]

Открыл бы вику, почитал про этот самый метод монте-карло. Узнал бы, что достаточно

Код:

k := 0;
for i := 1 to MAX_N do
begin
  x := (random(200)-100)/100;
  y := (random(200)-100)/100;
  if PtInFig(x, y)
   inc(K);
end;
S := k / N * 4;

При том что функцию PtInFig написать тоже не трудно, что-то типа

Код:

result := false;
if (y <= 0) then
begin
  if (y >= -1) and (abs(x) <= 1)
    result := true;
end
else
  if (y <= 1)
    if (x <= 1-y) and (x >= -1)
     result := true;

Задача элементарнейшая, надо просто хоть раз включить голову. В программу собирай сам.