1 Var a,i:integer;2 begin3 for i:=100 to 999 do4 begin5 a:=i mod 100;6 if 7*a=i then writeln(i);7 end;8 End.