汗
var
  i:longint;
begin
  for i:=1 to 500 do
    if((i mod 3)=2)and((i mod 5)=3)and((i mod 7)=2) then writeln(i);
end.

我没有验证的，在网吧写的，自己检查下咯
我想这里的pascal社区很冷清啊
不如去DRS
www.mydrs.org

这是楼上算法的优化后的结果:
  var i:word;
begin
  for i:=1 to 35 do if (i mod 3=2) and (i mod 5=3) and (i mod 7=2) then break;
  while i<=500 do begin writeln(i); i:=i+3*5*7; end;
  readln;
end.