function Love(Vboy:Tboy;Vgril:Tgril):boolean ; <BR>begin <BR> with Vgril do <BR> begin <BR> if ((是处女)and(身高>165)and(体重<100)and(MIMI尺码>34D)and(年龄<25)and(影响市容=false)and(气质>80)and(学历>=本科)) <BR> or(真心相爱=true) then <BR> Result:=true <BR> else <BR> Result:=false; <BR> end; <BR>end;