Var R: REG;
Var A: Array [16: Stream, 4: Stream, 4: Vector];
Var B: Array [4: Stream, 4: Vector, 16: Stream];
Var C: Array [4, 4, 16: Stream];
Var R2: Array [4] COM;
FOR I=1 TO 16 BEGIN
FOR J=1 TO 4 BEGIN
CADR a; R=0; ENDCadr;
CADR b; FOR K=1 TO 4
R2[I]=A[I,J,K]*B[J,K,I];
R=R+R2[1]+R2[2]+R2[3]+R2[4];
C[I,K,J]=R; ENDCadr;
END;END;

Рис.7. Программа и граф-схема вычислительной структуры умножения матриц