помогите Решить ребус A+AB+ABC=BCB в паскале

var  a, b, c: byte;begin  for a := 0 to 9 do    for b := 0 to 9 do      for c := 0 to 9 do        if (a + Single.Parse(a.ToString() + b.ToString()) + Single.Parse(a.ToString() + b.ToString() + c.ToString()) =           Single.Parse(b.ToString() + c.ToString() + b.ToString())) then        begin          WriteLn(String.Format('{0} + {0}{1} + {0}{1}{2} = {1}{2}{1}  |  a = {0}; b = {1}; c = {2}', a.ToString(), b.ToString(), c.ToString()));        end;end.