Если числа небольшие и X в N степени умещается в longint, то можно в цикле от 1 до n умножать на x
var i,x,n:integer;
l:longint;
begin
readln(x,n);
l:=1;
for i:=1 to n do
l:=l*x;
write(l);
end.
N=2i (2 в степени i) - формула Шеннона
N - мощность алфавита. Отсюда i=7
То есть один символ несёт информационный объём в 7 бит. А их аж 8192. Перемножаем 8192*7 и делим на 8 (количество битов в одном байте) = 7168 байта. Что составляет 7168/1024=7 Кб
Ответ: 7 Килобайт
Степени двойки. В ВТ система счисления - двоичная
840₁₀ => x₂
x=1100101010₂
<em>Решение во вложении!</em>