Var f:Real;

begin

f:= y[i] + (y[i+1] - y[i])/(x[i+1] - x[i])*(x1-x[i]);

Interpolate:=f;

end;

Begin

ClrScr;

Writeln('Линейная интерполяция');

For i:=1 to n do

begin

Write('X(',i:2,'), Y(',i:2,')= '); ReadLn(x[i],y[i]);

end;

for i:=1 to n do

begin

Writeln('X(',i:2,')= ',x[i]:5:5,' Y(',i:2,')= ',y[i]:5:5,

' Y*(',i:2,')= ',interpolate(x[i]):5:5);

end;

Write('Для продолжения нажмите <Enter>'); Readln;

end.