Если кому нужно:
program Interp;
{Вычисление значения многочлена Лагранжа для функции,
определенной таблично}
uses Crt;
const
m=9;
type
Vector=array [0..m] of real;
var
X,Y: vector; {узлы интерполяции}
i,j,N: integer;
p,L,Xe,h: real;
function step: real;
{определение оптимального шага...