Решить ребус на паскале, : a+ab+abc=bcb

Uses crt;
var a,b,c: integer;
begin
for 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.