program ll; var a,b,c,p,k,f:integer; Begin for a:=1 to 9 do for b:=0 to 9 do for c:=0 to 9 do begin if (b*10+c)*7=a*100+b*10+c then writeln(100*a+10*b+c:5); end; readln; ENd.