00010 RANDOMIZE
00020 INPUT I
00030 FOR J = 1 TO I
00040 IF SQR(RND^2 + RND^2) > 1 THEN 60
00050 N = N +1
00060 T = T +1
00070 NEXT J
00080 PRINT 4*N/T
00090 GOTO 30
00100 END