Дан алгоритм ветления. Чему на выходе будет равна переменная x, если a=14?

если честно я незнаю ☹☹☹

var

i,j,k: integer;

s,p: string;

begin

p: ='abcdefghijklmnopqrstuvwxyzабвгдеёжзийклмнопрстуфхцчшщъыьэюя';

readln(s);

k: =0;

for i: =1 to length(s) do

for j: =1 to length(p) do

if s[i]=p[j] then k: =k+1;

writeln(k);

end.

64 = 1000000

-120 = -1111000

-96 = -1100000

57 =  111001

вот конвертер: