153766₈=(заменяем каждую цифру на двоичную)
=001 101 011 111 110 110₂, первые два нуля не в счет. (не значащие)
Считаем, всего нулей 4.
Ответ: 4
В строчке read('a'); апострофов быть не должно. Замени на read(a);
Var i, a, b, c: integer;
begin
readln(a, b);
for i := a to b do c := c + i*i;
writeln(c);
<span>end.
Работает)</span>