[NumLock]

Код:

  Writeln('1 - add');
  Writeln('2 - mul');
  Writeln('3 - transp');
  Writeln('4 - calc determ');
  Write('Enter func num:');
  Readln(op);
  case op of
    0: begin
      // сложение
    end;
    1: begin
      // умножение
    end;
    2: begin
      // транспонирование
    end;
    3: begin
     // вычисление определителя
    end;
  end;