Решение СЛАУ методом Монте-Карло Опции

[MagicPRO]

Народ у меня расчетно-графическая робота, решение системы линейных уравнени методом Монте-Карло!
Может кто знает или у кого-то есть код решения этой задачи, принимается код на С++!
Заранее благодарен!

[MagicPRO]

Помогите пределать код с Basica на Pascal!

10 REM ~~~МОНТЕ_КАРЛО~~~
20 REM ВЫЧИСЛЕНИЯ КОРНЯ СИСТЕМЫ ЛИНЕЙНЫХ
УРАВНЕНИЙ
30 DIM A(20,2l),B(20,20),W(20)
40 INPUT "ВВЕДИТЕ ПОРЯДОК РЕШАЕМОЙ СИСТЕМЫ";N
50 PRINT "ВВЕДИТЕ ПО СТРОКАМ КОЭФФИЦИЕНТЫ
СИСТЕМЫ"
60 FOR I=1 ТО N
70 INPUT A(I,I):B(I,I)=ABS(A(I,I)) 80 FOR J=2 TO N
90 INPUT A(I,J):B(I,J)=B(I,J-I)+ABS(A(I,J))
100 NEXT J
110 INPUT A(I,N+1)
120 NEXT I
130 FOR I=1 TO N
140 W(I)=A(I,N+1)/(1-B(I,N))
150 NEXT I
160 INPUT "ВВЕДИТЕ НОМЕР РЕШАЕМОГО УРАВНЕНИЯ -В И КОЛИЧЕСТВО РЕАЛИЗАЦИИ СЛУЧАЙНОГО ПРОЦЕССА - М ";В,М
170 T=1:Y=0
180 S=B:Y=1
190 IF T>M THEN 260
200 C=RND(1)
210 FOR J=N TO 1 STEP -1
220 IF C<=B(S,J) THEN 240
230 IF J=N THEN T=T+1:Y=Y+V*W(S):GOTO 180 ELSE V=V*SNG(A(S,J+1)):S=J+1:GOTO 200
240 NEXT J
250 V=V*SGN(A(S,l)):S=1:GOTO 200
260 X=Y/M
270 PRINT "КОРЕНЬ ";B;" - ГО УРАВНЕНИЯ X=";X
280 END