PROCEDURE uebertrag(n,c: integer; VAR a: megezahl);
VAR i: integer;
BEGIN
  FOR i:=n DOWNTO 1 DO
  WHILE a[i]>=c DO
  BEGIN
    a[i]:=a[i]-c; a[i-1]:=a[i-1]+1
  END
END;