Переведите, пожалуйста, из языка Pascal в язык Basic

Question

PROGRAM MONTE_KARLO;{ПАСКАЛЬ} 
VAR I,N,N1:LONGINT; 
X,Y,PI:REAL; 
BEGIN 
RANDOMIZE; 
WRITE('Введите количество точек N='); 
READLN(N); 
FOR I:=1 TO N DO 
BEGIN 
X:=2*RANDOM; 
Y:=2*RANDOM; 
IF SQR(X-1)+SQR(Y-1)<=1 THEN N1:=N1+1; 
END; 
PI:=4*N1/N; 
WRITELN('PI=',PI:15:11); 
END.

Марина Слесарева · Accepted Answer

Никто за такое не заплатит)))

Мария Галова · Answer

ага, а еще тебе что сделать? ! люди деньги за такое вообще-то получают.