Var A,B,C: Array [10: Vector];
FOR I=1 TO 10 STEP 2 BEGIN
CADR summa;
FOR J=I TO I+1 BEGIN
C[J]=A[J]+B[J];
END;
ENDCadr;

Рис.4. Программа и эквивалентный ей граф вычислительной структуры, реализующей параллельно-последовательное суммирование двух массивов