На Паскале вычисление факториала выглядит так:
Код

var n:integer;
var a:double;

function Factor(n:integer):real; //вычисляем сам факториал по числу n
var v:real;
Begin
if n in [0,1] then
Factor:= 1 else
Factor:= n*Factor(n-1);
end;

begin
Write('Введите число n: ');
Readln(n);
a:=(pow(3,n)*Factor(n))/Factor(3*n); // необходимая нам часть, ваша формула
Write('а = ', a:5:3);
Readln;
End.


В работоспособности задачи не уверен) Давно не программировал.