помогите Решить ребус 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 + 01 + 012 = 121    a = 0; b = 1; c = 2', a.ToString(), b.ToString(), c.ToString()));
        end;
end.