p̲r̲o̲c̲e̲d̲u̲r̲e̲ AITKEN(x, f, n, X, F); r̲e̲a̲l̲ a̲r̲r̲a̲y̲ x, f;
     i̲n̲t̲e̲g̲e̲r̲ n;  r̲e̲a̲l̲ X, F;
     c̲o̲m̲m̲e̲n̲t̲ ;
b̲e̲g̲i̲n̲ i̲n̲t̲e̲g̲e̲r̲ i, j, t;
   f̲o̲r̲ j := 0 s̲t̲e̲p̲ 1 u̲n̲t̲i̲l̲ n - 1 d̲o̲
        f̲o̲r̲ i := j + 1 s̲t̲e̲p̲ 1 u̲n̲t̲i̲l̲ n d̲o̲
           f[i] := ((X - x[j]) × f [i] - (X - x [i]) × f[j])/
           (x[i] - x[j]) ;
   F := f [n]
e̲n̲d̲;