⇢ 
Галина Унанян
Переведите, пожалуйста, из языка Pascal в язык Basic
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.