Var l, I, j : Integer;

YY, D, H, P, R : RealType;

begin

if XX <= X[1] then l:=-1 else if XX > X[N1] then l:=1 else l:=0;

case l of