PROGRAM abc;
uses crt;
const d1=-2; d2=2;h=0.1;
var
   f1,f2,f3,s,s1,y1:longint;
   k,n:integer; f,x,a:real;
function y(x:real):real; {zadaem funkciyu}
var y1:real;
    procedure fact(n:integer; var f:longint);
    var i:integer;
        begin
        f:=1;
        if n=0 then f:=1
        else
         for i:=1 to n do
         f:=f*i;
         end;
    procedure step(a:real;n:integer;var s:longint);
    var i,b:integer;
        begin
        s:=1;
        for i:=1 to n do
        s:=s*b;a:=b;
        end;
    procedure step1(a,n:integer;var s:longint);
    var i:integer;
        begin
        s:=1;
        for i:=1 to n do
        begin
        if i mod 2=0 then s:=1 else s:=-1;
        end;  end;
begin {funkcii}
fact(k,f1);
fact((19-k),f2);
fact((20-2*k),f3);
step(a,10-k,s);
step1(-1,k,s1);
y1:=10*s1*f2*s/(f1*f3);
y:=0;
for k:=0 to n do
y:=y(x)+y1;
end;{konec funkcii}
begin {osnovnaya}
x:=d1;
f:=0;
writeln('|   x    |     y         |');
writeln('|------- |---------------|');
repeat
a:=4*x*x;
f:=f+y(x);
writeln('|',x:7:3,' | ',f:7:3   ,' |');
x:=x+h;
until x>d2;
writeln('|--------------------------|');
readln;
end.