1:
2:
3:
4:
5:
6:
7:

 gefunden := false;
  if odd (EinZahl) then
    d := 2
  else
    d := 1;