Сообщение длиной 32768 символа занимает в памяти 20 Кбайт. Найдите мощность алфавита, который использовался при кодировании.

var n, i, k, a: integer;

begin readln(n); k : = 0; for i : = 1 to n do begin readln(a); if trunc(sqrt(a)) * trunc(sqrt(a)) = a then k : = k + 1; end; writeln(k); end.

|з       з|

|         з|

|з   з     |

мне кажется в цифровом виде

x2: =x*x

x4: =x2*x2

t: =x4*x4 | =x^8

t: =t*x2|=x^10

t: =t*t

t: =t/x  |=x^15

t: =t*x4 |=x^19