Complexité

Bonjour,
j'ai ce algo et je veut quellequ'un qui peut me aide
procedure test1(n,m,p:integer);
var
i,j,k:integer;
begin
for i:=1to n do
for j:=1to m do
begin
c[i,j]:=0;
for k:=1 to p do
c[i,j]:= c[i,j]+(a[i,k]*b[k,j]);
end;
end;

complexité= n*m*p
mais comment ?