Похоже у чела просто отсутствует привычка думать (судя по его вопросам).
А формула нормальная, это произведение первых n нечётных чисел.
Код:
function Calc(n:integer):integer;
var i:integer;
begin
Result := 1;
for i:=2 to n do Result := Result * ( 2*i - 1 );
end;