Умножение матриц

Задание 1:
Найти произведение матриц  ,  ,  ,   (если это возможно).
Скрипт:
% Задание 1 %
disp('Задание 1:');
disp(' ');
disp('Произведение матриц B*A:');
sA=size(A);
sB=size(B);
if sB(2)==sA(1)
    BA=B*A;
    disp(BA);
else
    disp('Операция невыполнима из-за размерностей матриц');
    disp(' ');
end;
disp('Произведение матриц A*B*C:');
if sA(2)==sB(1)
    ABC=A*B;
    sC=size(C);
    if sB(2)==sC(1)
        ABC=ABC*C;
        disp(ABC);
    else
        disp('Операция невыполнима из-за размерностей матриц');
        disp(' ');
    end;
else
    disp('Операция невыполнима из-за размерностей матриц');
    disp(' ');
end;
disp('Произведение матриц At*B:');
sAt=size(A');
if sAt(2)==sB(1)
    AtB=A'*B;
    disp(AtB);
else
    disp('Операция невыполнима из-за размерностей матриц');
    disp(' ');
end;
disp('Произведение матриц A*C:');
if sA(2)==sC(1)
    AC=A*C;
    disp(AC);
else
    disp('Операция невыполнима из-за размерностей матриц');
    disp(' ');
end;