Var
 x,y:Array[1..4] of Real;
 z,P,R:Real;
 i,j:Byte;

Begin
 x[1]:=-1; x[2]:=1; x[3]:=2; x[4]:=4;
 y[1]:=2; y[2]:=2; y[3]:=5; y[4]:=18;
 Write('Argument= ');
 Readln(z);
 R:=0;
 for i:=1 to 4 do
  begin
   P:=1;
   for j:=1 to 4 do
    if j<>i then
     P:=P*(z-x[j])/(x[i]-x[j]);
   R:=R+P*y[i];
  end;
 Writeln('Result= ',R:0:3);
 Readln
End.