Напишите в ответе количество различных значений входной переменной a из интервала от 1 до 100 \(включая границы\), при которых программа выдаёт тот же ответ, что и при входном значении a = 20. Значение a = 20 также включается в подсчёт различных значений a.

var i, k,a: integer;
function f\(x: integer\): integer;
begin
if x >1 then
f := x mod 2 * f\(x div 2\)
else
f := x;
end;
begin
k := 0;
readln\(a\);
for i := 1 to a do
if f\(i\) =1 then k:=k+1;
writeln\(k\);
end.