n = 398 (slider from r to 2000, step 1)
R: {(1, 0), (-1, 0), (0, 1), (0, -1)}
V = Sequence(Element[R, Random[1, 4]], i, 1, n)
W = Sequence(Sum[V, k], k, 1, n)
X = Insert((0, 0), W, 1)
L8 = Sequence((x(Element[W, k]))^(2) + (y(Element[W, k]))^(2), k, 1, n)
Maximum = Max(L8)
r = 22 (slider from 1 to 50, step 1)
L = Sequence(If[(x(Element[X, k]))^(2) + (y(Element[X, k]))^(2) < r^(2), 1, 0], k, 1, n)
L2 = Sequence(Product[L, i], i, 1, n)
A = Intersect(xAxis, yAxis)
c = Circle(A, r)
Anzahl = If(Maximum ≥ r^(2), Sum[L2], " ")
L9 = Sequence(Segment[Element[X, i], Element[X, i + 1]], i, 1, n)
L10 = Sequence(Segment[Element[X, i], Element[X, i + 1]], i, 1, Anzahl)
Text2: "Radius r  (Einheit  Schrittlänge)
Start im Mittelpunkt des Kreises" + Anzahl + "  Schritte bis zum Erreichen des Kreises

Neuberechnung mit f9 bzw. Strg+R"