'PROCEDURE' MATRIX(A, LAMBDA, N, P, S); 'INTEGER' N, P; 'ARRAY' A, LAMBDA; 
     'STRING' S; 
     'BEGIN' 'INTEGER' I, J, A, B; 
         NLCR; PRINTTEXT(S); A:= 1; B:= ('IF' N > 6 'THEN' 6 'ELSE' N); NLCR; 
     AA: NLCR; NLCR; NLCR; NLCR; 'IF' P = 1 'THEN' 
         'BEGIN' 'FOR' J:= A 'STEP' 1 'UNTIL' B 'DO' PRINT(LAMBDA[J]); NLCR 'END';
         'FOR' I:= 1 'STEP' 1 'UNTIL' N 'DO' 
         'BEGIN' NLCR; 
          'FOR' J:= A 'STEP' 1 'UNTIL' B 'DO' PRINT(A[I,J])
         'END';
         'IF' B <> N 'THEN' 
         'BEGIN' A:= B + 1; B:= ('IF' (B + 6) > N 'THEN' N 'ELSE' B + 6); 'GOTO' AA
         'END';
         NLCR
     'END' MATRIX;