6*7*7 + 3*7 + 1 = 316
316 = 2*158 + 0
158 = 2*79 + 0
79 = 2*39 + 1
39 = 2*19 + 1
19 = 2*9 + 1
9 = 2*4 + 1
4 = 2*2 + 0
2 = 2*1 + 0
1 = 2*0 + 1
выписываем в обратном порядке остатки:
100111100
итого
Program a2;
Crt;
Vari,N : integer;
x, S : real;
Begin
ClrScr;
readln (N);
S:=0;
i:=1;
while i<=N do
begin
readln (x);
S:=S*x;
i:=i+1;
end;
write(s);
readln;
End.