Помогите решить ребус на паскале, пожалуйста: A+AB+ABC=BCB

uses crt;var a,b,c: integer;beginfor a:=1 to 9 do    for b:=1 to 9 do        for c:=0 to 9 do        if a+10*a+b+100*a+10*b+c=100*b+10*c+b           then writeln(a,' ',b,' ', c);end.