I, j, n : Integer;

p, L, x1 : RealType;

x, y : Vec;

ch : Char;

Begin

ClrScr;

WriteLn ('Введите N - порядок многочлена Лагранжа');

Read (n);

WriteLn('Введите пары значений xi, yi; i= 0,...,N');

For i:= 0 to N do

begin

Read (x[i],y[i]);

WriteLn;

end;

writeLn ('Введите x');

Read (x1);

L:= 0;

For i:= 0 to N do

begin

p:= 1;

For j:= 0 to N do

If j<>i then p:= p*(x1-x[j])/(x[i]-x[j]);

L:= L + y[i]*p;

end;

WriteLn ('x = ', x1:8:4, ' L(x) = ',L:8:4);;

Repeat Until KeyPressed; {Ожидает нажатия любой клавиши, модуль Crt}

{Используется для задержки информации на экране}

ClrScr;{Очищает экран, модуль Crt}

End.