kres0516

var n,i,j,k:integer;
x,y,yneizv:array [0..1000] of real;
w,p,q:real;

begin
x[0]:=-4;x[1]:=-3;x[2]:=-2;x[3]:=-1;x[4]:=0;x[5]:=1; x[6]:=2; x[7]:= 3; x[8]:=4;

y[0]:=0; y[1]:=2; y[2]:=0; y[3]:=-1; y[4]:=0; y[5]:=1; y[6]:=0; y[7]:= -2; y[8]:=0;

w:=-4;
n:=8;
for k:=1 to 41 do
begin
yneizv[k]:=0;
for i:=0 to n do
begin
q:=1;
p:=1;
for j:=0 to n do
if i<>j then
begin
q:=q*(w-x[j]);
p:=p*(x[i]-x[j]);
end;

yneizv[k]:=yneizv[k]+q/p*y[i];

end;
w:=w+0.2;
end;

w:=-4;
for k:=1 to 41 do
begin
writeln(w:6:2,yneizv[k]:6:2);
w:=w+0.2;
end;

readln;
end.