Вылислить (2n)!! в паскале

//Я так понял, что n вводится пользователем, тогда:

Program Test;

Var n: real;

Begin

Write('Введите n: ');
Readln(n);
Writeln();
Writeln('2n = ', 2 * n);

End.