//JOB(ERCC07,STEPHENS,T=200,L=10000)
//OPTIONS(QUOTES,OPT)
//ALGOL
'COMMENT'
                         ***************
                         *             *
                         *   ALGG014   *
                         *             *
                         ***************
;
 'BEGIN''COMMENT'AN IBM ALGOL PROGRAM ON PARTITION;
 'PROCEDURE' CPUTIM(T);
 'REAL' T;
   T:=CPUTIME;
 'INTEGER''ARRAY' P[1:100];
 'PROCEDURE' A(M,N,I);
 'VALUE' M,N,I;
 'INTEGER' M,N,I;
 'BEGIN' 'INTEGER' Z,K;
 'FOR'Z:=1'STEP'1'UNTIL'M'DO'
 'BEGIN'
 P[I]:=Z;
 'IF'Z=N'THEN''GOTO'EX;
 A(Z,N-Z,I+1);
 'END' FOR;
 EX: 'END' A;
 'REAL' T;
 CPUTIM(T);
 A(30,30,1);
 CPUTIM(T);
 OUTPUT(T);
 'END'
//RUN