Дано натуральное число n вычислить 2 n ! турбо паскаль Срочно

var n,x:real; begin writeln('Введите число'); readln(x); n:=n*2; writeln('Ответ', n); readln; end.