PROCEDURE teil(n,c:integer; VAR imin:integer;
         k: integer; VAR a: megezahl);
VAR rest,i :integer; null : boolean;
BEGIN
  null := true; rest:=a[imin];
  FOR i:=imin TO n-1 DO
  BEGIN
    a[i]:=rest DIV k; rest:=(rest MOD k)*c+a[i+1];
    IF null THEN
      IF a[i]=0 THEN imin:=i ELSE null :=false;
  END;
  a[n]:= rest DIV k
END;