Информационное сообщение объемом 14 кбайт содержит 16384 символа. сколько символов содержит алфавит, при которого было записано это сообщение?

var a,b,s: integer; begin readln(a); while a> =10 do begin b: =a mod 10; s: =s+sqr(b); a: =a div 10; end; a: =a*a; s: =s+a; writeln(s); readln; end.в s накапливаем сумму квадратов, b это остатки от деления на десять, после цикла прибавляем последнюю цифру,которая меньше десяти, предворительно возведя её в квадрат!

что никакая машина не будет работать без человека, я думаю если за машиной работает толковый знающий человек,которые умеет этой машиной, то тогда работой машины и человека будут восхищаться. а если машину сделал неумелец или на ней работает неумелец-это крах машине и человеку