var a,b,c:integer;
begin
write('cac so abc thoa man la:');
for a:=1 to 9 do
for b:=0 to 9 do
for c:=0 to 9 do
for d:=0 do 9 do
if a*100+b*10+c=a*10+b+b*10+c+a*10+c then write(a,b,c);
readln
end.
nhầm nhẹ
var a,b,c:integer;
begin
write('cac so abc thoa man la:');
for a:=1 to 9 do
for b:=0 to 9 do
for c:=0 to 9 do
for d:=0 do 9 do
if a*100+b*10+c=a*10+b+b*10+c+a*10+c then write('a,b,c');
readln
end.