16х120=1920бит=240байт
32х96=3072бит=384байт
240<384 => письмо пульти имеет больший объем
Hex(8): 4 = Dec(10)
Hex: 1,2,3,4,5,6,7,10,11,12...
Dec: 1,2,3,4,5,6,7, 8, 9, 10...
Var
N:integer;
X,S:real;
Begin
S:=0;
Write('N = ');
Read(N);
Write('X = ');
Read(X);
For N:= 1 to N do
S:=S+power(X,N);
Write('S = ',S)
End.