Паскаль!!! Здрасти вот у меня такая неувязка!Нам задали отыскать площадь четверти

Паскаль!!!
Здрасти вот у меня такая неувязка!Нам задали найти площадь четверти окружности способом монте-карло, если обвести эту фигуру в квадрат у него все стороны 1 см!Вот мой алгоритм но он ошибочный мне так произнесли !помогите пожалуйста воплотить программку в правильное русло!Вроде бы формулы все правильны в чем содержится ошибка?
Способ монте карло заключаеться в том что если случайным образом стрелять в плоскость и получиться дела меж попавшими и всего отстреленными точками таким образом можно отыскать площадь разыскиваемой фигуры!








PROGRAM NAHOGDENIE_S_METODOM_MONTE_KARLO_S_RADIOSOM_1;
USES CRT;
Label m1;
VAR NP,N,S,L,A,X,Y,S4,D,F:REAL;
const P=3.14159265359;//число пи
BEGIN
A:=0;
N:=1;
NP:=1;
F:=10001;
CLRSCR;
WRITELN('Нахождение площади фигуры способом монте-карла с учетом, что площадь наружного квадрата одинакова 1.В связи с этим мы его опускаем');
WRITELN(' ');
WRITELN('S это площадь разыскиваемой фигуры');
WRITELN('4S это творение площади искомой фигуры и четырёх');
WRITELN('(4S-П) это разность творенья площади разыскиваемой фигуры и числа Пи');
m1:
NP:=NP*10;
WHILE N=NP DO X:=RANDOM(2)-1;
Y:=RANDOM(2)-1;
L:=SQRT((X*X)+(Y*Y));
IF Llt;=1 THEN A:=A+1 ;
BEGIN
S:=A/N;
S4:=4*S;
D:=S4-P
END;
WRITELN('S = ',S, ' 4S = ',S4,' (4S-П) = ',D); //Получение результата
IF NPlt;F THEN GOTO M1;
END.
Если у кого то есть какие или идеи пожалуйста напишите на почту [email160;protected] либо сюда