randompunten[n_] := Module[{p = n, r, angle, lis, i}, lis = {};
For[i = 0, i < p,
i++, {r = RandomReal[], angle = RandomReal[2 \[Pi]],
lis = Append[lis, Point[{r Cos[angle], r Sin[angle]}]]}]; lis]
{Graphics[{Red, randompunten[5], Blue, Circle[{0, 0}, 1]}],
Graphics[{Red, randompunten[100], Blue, Circle[{0, 0}, 1]}]}