Pascal :

var
 i:integer;
begin
  for i:=400 to 500 do
  begin
  if i mod 2=1 then begin if i mod 5=3 then begin if i mod 9=1 then begin write(i); end;end; end;
  end;
end.