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

Question

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

Answer 1

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

Comments

Секунду

---

readln(x) в скобках должна быть n

---

и где var, x можно убрать

---

а как сделать с пред.условием?

---

секунду

---

var n:integer;
begin
writeln('Введите число');
n:=здесь введи число,которое требуется умножить,после поставь;
n:=n*2;
writeln('Ответ', n);
readln;
end.