Палиндромы

var
  f,f1: Text;
  a,s,t,u,i: Integer;
begin
  Assign(f, 'input.txt');
  Reset(f);
  Assign(f1, 'output.txt');
  Rewrite(f1);
  Readln(f, a);
  u := 0; // уровень
  Writeln(f1, a); // считываем  число из файла
  repeat // понеслась
    s := 0; // тут будет текущего числа палиндром
    t := a; // тут храним само число
    i := -1; // здесь будет счётчик цифр в числе
    while a > 0 do
     begin
       a := a div 10;
       Inc(i); // типо цифры посчитали
     end;
    a := t;
    while a > 0 do
     begin
       s := s + round((a mod 10)*exp(i*ln(10))); // сделали палиндром
       a := a div 10;
       Dec(i);
     end;
    a := t;
    if a <> s then // проверили условие
     begin
       Writeln(f1, s, ' + ', a, ' = ', s+a); // это так, для себя написал - промежуточные результаты контролировать
       Inc(u);
       a := a + s;
     end;
  until a = s; // закончили
  Writeln(f1, u); // записали результат
  Close(f);
  Close(f1);
end.