Вкаких системах счисления выполняется неравенство 0,35 + 0,5 + 0.15> 1?

Если а - основание системы исчисления, то тогда (9/а)+(10/а*а)> 1   ->   9а+10> а*а   ->   а^2 - 9a - 10 < 0     a^2  -  9a  -  10 =0   ->   a1=10,   a2 = - 1     ->   a^2 - 9a - 10 < 0   при   -1 < a < 10 ->   основание системы     a     от 2 до 9 ,   для которых выполняется неравенство 0,35+0,5+0,15 > 1

program xxx;

      var i, x, s : integer;

begin

  write('введите число х=');

  readln(x);

  s: =0

  i: =1

  while i < =x do

      begin

          s: =s+i;

          i: =i+2

      end;

  write('сумма нечетных чисел ='; s);  

  readln

end.

var

n: integer;

begin

readln(n);

if (n mod 10)=(n div 100) then

writeln('палиндром')

else

writeln('не палиндром');

end.