'BEGIN'
'COMMENT' LIBRARY 3;
'INTEGER'I,CL,N,REP;
'ARRAY' R,A,B[1:30],C[1:10];
'REAL' J,ROOT,X;
'INTEGER''PROCEDURE' EVEN(X);
    'VALUE' X;
    'INTEGER'X;
    EVEN:='IF' X'DIV'2*2 = X 'THEN' 1 'ELSE' -1;
'PROCEDURE' GAMM(R,A,B,C);
    'ARRAY' R,A,B,C;
    'BEGIN'    'INTEGER'REP,I,CL;
        'REAL' J,ROOT,X;
        REP:=100*N;
        OUTREAL(99,CPUTIME);
        'FOR' CL:= 1 'STEP' 1 'UNTIL' REP 'DO'
            ;
        OUTREAL(99,CPUTIME);
        REP:=N;
        OUTREAL(99,CPUTIME);
        'FOR' CL:=1 'STEP' 1 'UNTIL' REP 'DO'
        'FOR' I:= 1 'STEP' 1 'UNTIL' 30 'DO'
            R[I]:=A[I]+B[I];
        OUTREAL(99,CPUTIME);
        'FOR' CL:=1 'STEP' 1 'UNTIL' REP 'DO'
        'FOR' I:=1 'STEP' 1 'UNTIL' 30 'DO'
            R[I]:=A[I]*B[I];
        OUTREAL(99,CPUTIME);
        REP:=6*N;
        X := .5;
        OUTREAL(99,CPUTIME);
        'FOR' CL:= 1 'STEP' 1 'UNTIL' REP 'DO'
        'BEGIN'    J:=0.0;
            'FOR' I:= 1 'STEP' 1 'UNTIL' 10 'DO'
                J:=(J+C[I])*X
        'END';
        OUTREAL(99,CPUTIME);
        OUTREAL(99,J);
        OUTREAL(99,CPUTIME);
        'FOR' CL:= 1 'STEP' 1 'UNTIL' REP 'DO'
        'BEGIN'    J:=C[1];
            'FOR' I:=2 'STEP' 1 'UNTIL' 10 'DO'
                'IF' C[I]>J 'THEN' J:=C[I]
        'END';
        OUTREAL(99,CPUTIME);
        J:=2;
        REP := 8*N;
        OUTREAL(99,CPUTIME);
        'FOR' CL:=1 'STEP' 1 'UNTIL' REP 'DO'
        'BEGIN'    ROOT:=1.0;
            'FOR' I:=1 'STEP' 1 'UNTIL' 5 'DO'
                ROOT:= 0.5*(ROOT+J/ROOT)
        'END';
        OUTREAL(99,CPUTIME);
        OUTREAL(99,ROOT);
    'END' OF GAMM;
    I:=1;
    'FOR' J:=104.5,3.7,-68.9,228.2,-1004.4,500.0,308.1,45.0,152.35,161.8 
'DO'
    'BEGIN'    C[I]:=J;
        I:=I+1
    'END';
    'FOR' I:=1 'STEP' 1 'UNTIL' 30 'DO'
    'BEGIN'    A[I]:=EVEN(I)*I*I;
        B[I]:=1-EVEN(I)*I*I
    'END';
    N := 2000;
    REP:=100*N;
    OUTREAL(99,CPUTIME);
    'FOR' CL:= 1 'STEP' 1 'UNTIL' REP 'DO'
        ;
    OUTREAL(99,CPUTIME);
    REP:=N;
    OUTREAL(99,CPUTIME);
    'FOR' CL:=1 'STEP' 1 'UNTIL' REP 'DO'
    'FOR' I:= 1 'STEP' 1 'UNTIL' 30 'DO'
        R[I]:=A[I]+B[I];
    OUTREAL(99,CPUTIME);
    'FOR' CL:=1 'STEP' 1 'UNTIL' REP 'DO'
    'FOR' I:=1 'STEP' 1 'UNTIL' 30 'DO'
        R[I]:=A[I]*B[I];
    OUTREAL(99,CPUTIME);
    REP:=6*N;
        X := .5;
    OUTREAL(99,CPUTIME);
    'FOR' CL:= 1 'STEP' 1 'UNTIL' REP 'DO'
    'BEGIN'    J:=0.0;
        'FOR' I:= 1 'STEP' 1 'UNTIL' 10 'DO'
            J:=(J+C[I])*X
    'END';
    OUTREAL(99,CPUTIME);
    OUTREAL(99,J);
    OUTREAL(99,CPUTIME);
    'FOR' CL:= 1 'STEP' 1 'UNTIL' REP 'DO'
    'BEGIN'    J:=C[1];
        'FOR' I:=2 'STEP' 1 'UNTIL' 10 'DO'
            'IF' C[I]>J 'THEN' J:=C[I]
    'END';
    OUTREAL(99,CPUTIME);
    J:=2;
    REP := 8*N;
    OUTREAL(99,CPUTIME);
    'FOR' CL:=1 'STEP' 1 'UNTIL' REP 'DO'
    'BEGIN'    ROOT:=1.0;
        'FOR' I:=1 'STEP' 1 'UNTIL' 5 'DO'
            ROOT:= 0.5*(ROOT+J/ROOT)
    'END';
    OUTREAL(99,CPUTIME);
    OUTREAL(99,ROOT);
    GAMM(R,A,B,C);
'END'