PROCEDURE drucken(s:megezahl);
VAR k,i:integer;
PROCEDURE stelle(n:integer);
(* Man vergleiche dazu Aufgabe 4.6 *)
BEGIN
  k:=k+1;
  IF k<=m THEN
  BEGIN stelle(n DIV 10); write(tf,n MOD 10:1) END;
END;

BEGIN
  FOR i := 1 TO n DO
  BEGIN
    k:=0; stelle(s[i]);
    IF (i*m) MOD 10 = 0 THEN write(tf,' ');
    IF (i*m) MOD 70 = 0 THEN writeln(tf)
 END;
END;