var n:integer;
var a:[color=#FF0000]real[/color];

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:=([color=#FF0000]power[/color](3,n)*Factor(n))/Factor(3*n); // необходимая нам часть, ваша формула
Write('а = ', a:5:3);
Readln;
End.