Решить ребус 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.