10 INPUT "MITU VISET"; N
20 FOR I = 1 TO N
30 X = RND(1) * (-1) ^ INT(RND(1) * 2)
40 Y = RND(1) * (-1) ^ INT(RND(1) * 2)
50 IF X ^ 2 + Y ^ 2 < 1 THEN P = P + 1
60 NEXT I
70 PRINT (P / N) * 4
80 END