Найти произведение от 1до n( p=1*2**n) на языке паскаль

Var     factorial: longint;     n, i: byte;   begin write('n = '); readln(n);       factorial : = 1;   for i: =2 to n do factorial : = factorial * i;   writeln('n! = ', factorial);   readln; end.

пусть х основание системы счисления, тогда:

122х (здесь х должен стоять нижним индексом) = 1*х² + 2*х¹ + 2*х⁰=х²+2х+2 - это десятичная запись исходного числа, значит:

х²+2х+2=65

х²+2х-63=0

д= 4 + 252 = 256

х₁ = (-2-  16)/2 = -9 (не удовлетворяет)

х₂ = (-2 + 16)/2 = 7

ответ. основание системы счисления = 7.

2 единицы в двоичной записи числа 1025

10000000001