if 武汉房 in（中心城区） and length（价格）<=4 then
if copy(价格，1,1）=‘1’ then
begin
抄底；
end;
procedure 抄底
begin
。。。。。。。
end；