DIM x(1000), y(1000)
              
               INPUT " kol-vo   n="; n
              FOR i = 1 TO n
              x(i) = INT(RND(1) * 10)
              y(i) = INT(RND(1) * 10)
              PRINT x(i); y(i)
              NEXT

              INPUT " radius R="; r

              FOR i = 1 TO n
              IF (x(i)) ^ 2 + (y(i)) ^ 2 = r ^ 2 THEN s = s + 1
              NEXT
               PRINT " vsego="; s
               END