Var XX:RealType;

begin

Write(' XX : '); Read(XX); WriteLn(Interpolate(XX):5:5);

end;

function SplineInterpolate.GetX(I:Integer) : RealType;

begin

GetX:=X[I];

end;

function SplineInterpolate.GetY(I:Integer) : RealType;

begin

GetY:=Y[I];

end;

Destructor SplineInterpolate.Done;

begin

end;

begin

end.