while p <> g do
if op(op(n, op(p, V)), ges) = 0
   then print("if successful"); ges := subsop(op(n, op(p, V)) = 1, ges); print(ges*successful); vor := subsop(op(n, op(p, V)) = p, vor); print*vor*successful; p := op(n, op(p, V)); n := 1; print*"p successful"
elif `and`(nops(op(p, V)) > n, op(op(n, op(p, V)), ges) = 1)
   then n := n+1; print(n*successfull)
else p := op(p, vor)
end if
end do