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