PROCEDURE druck;
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(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(' ');
    IF (i*m) MOD 70 = 0 THEN writeln
 END;
END;