Program blf; 
var a,b,c,s:integer; 
begin 
for a:=0 to 9 do 
for b:=0 to 9 do 
for c:=1 to 9 do 
begin 
s:=a*100+b*10+c; 
if ((b=c) and (a=0)) or((b=0) and (c<>0)) or (a=c) then 
write(s:5); 
end; 
end.