1

begin

2

parfor P_i, 1 <= i <= p do

3

g = ceil(n/p) (i - 1) + 1

4

b[i] = a[g] ;

5

for (j=l; j<= ceil( n/p ) - 1; j++) // sumowanie w

segmantach

6

if (g + j) <= n then // ostatni segment może być

niepełny

7

b[i] = b[i] + a[g + j] ;

8

end if;

9

end for;

10

end parfor

11

// Sumowanie b[l> + b[2] + ... b[p] w czasie 0(log p)

12

// za pomocą algorytmu poprzedniego

13

end