for i:=1 to m do
		for j:=1 to n 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;