begin
   comment LIBRARY 3;
   integerI,CL,N,REP;
   array R,A,B[1:30],C[1:10];
   real J,ROOT,X;
   integerprocedure EVEN(X);
      value X;
      integerX;
      EVEN ≔ ̲f X÷2×2 = X then 1 else -1;
   procedure GAMM(R,A,B,C);
      array R,A,B,C;
   begin    integerREP,I,CL;
      real J,ROOT,X;
      REP ≔ 00×N;
      OUTREAL(99,CPUTIME);
      for CL ≔ 1 step 1 until REP do
        ;
      OUTREAL(99,CPUTIME);
      REP ≔ ;
      OUTREAL(99,CPUTIME);
      for CL ≔  step 1 until REP do
           for I ≔ 1 step 1 until 30 do
              R[I] ≔ [I]+B[I];
      OUTREAL(99,CPUTIME);
      for CL ≔  step 1 until REP do
           for I ≔  step 1 until 30 do
              R[I] ≔ [I]×B[I];
      OUTREAL(99,CPUTIME);
      REP ≔ ×N;
      X ≔ ·5;
      OUTREAL(99,CPUTIME);
      for CL ≔ 1 step 1 until REP do
         begin    J ≔ ·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 ≔ [1];
            for I ≔  step 1 until 10 do
                 if C[I]>J then J ≔ [I]
         end;
      OUTREAL(99,CPUTIME);
      J ≔ ;
      REP ≔ 8×N;
      OUTREAL(99,CPUTIME);
      for CL ≔  step 1 until REP do
         begin    ROOT ≔ ·0;
            for I ≔  step 1 until 5 do
                 ROOT ≔ 0·5×(ROOT+J/ROOT)
         end;
      OUTREAL(99,CPUTIME);
      OUTREAL(99,ROOT);
   end OF GAMM;
   I ≔ ;
   for J ≔ 04·5,3·7,-68·9,228·2,-1004·4,500·0,308·1,45·0,152·35,161·8 
     do
      begin    C[I] ≔ ;
         I ≔ +1
      end;
   for I ≔  step 1 until 30 do
      begin    A[I] ≔ VEN(I)×I×I;
         B[I] ≔ -EVEN(I)×I×I
      end;
   N ≔ 2000;
   REP ≔ 00×N;
   OUTREAL(99,CPUTIME);
   for CL ≔ 1 step 1 until REP do
     ;
   OUTREAL(99,CPUTIME);
   REP ≔ ;
   OUTREAL(99,CPUTIME);
   for CL ≔  step 1 until REP do
        for I ≔ 1 step 1 until 30 do
           R[I] ≔ [I]+B[I];
   OUTREAL(99,CPUTIME);
   for CL ≔  step 1 until REP do
        for I ≔  step 1 until 30 do
           R[I] ≔ [I]×B[I];
   OUTREAL(99,CPUTIME);
   REP ≔ ×N;
   X ≔ ·5;
   OUTREAL(99,CPUTIME);
   for CL ≔ 1 step 1 until REP do
      begin    J ≔ ·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 ≔ [1];
         for I ≔  step 1 until 10 do
              if C[I]>J then J ≔ [I]
      end;
   OUTREAL(99,CPUTIME);
   J ≔ ;
   REP ≔ 8×N;
   OUTREAL(99,CPUTIME);
   for CL ≔  step 1 until REP do
      begin    ROOT ≔ ·0;
         for I ≔  step 1 until 5 do
              ROOT ≔ 0·5×(ROOT+J/ROOT)
      end;
   OUTREAL(99,CPUTIME);
   OUTREAL(99,ROOT);
   GAMM(R,A,B,C);
end