var
s:real;
k,i:byte;
x,is,ks: integer;
begin
write('X=');
readln(x);
i:=2;K:=1; is:=1; ks:=1;
while (i<8) and (k<7) do
ks:=ks*(x-k);
is:=is*(x-i);
i:=i+2;
k:=k+2;
s:=is/ks
write('s=', s:5:1);
readln;
end.

var
  s:real;
  k,i:byte;
  x,iss,ks: integer;
begin
  write('X=');
  readln(x);
  i:=2;K:=1; iss:=1; ks:=1;
  while (i<=32) do
  begin
    ks:=ks*(x-k);
    iss:=iss*(x-i);
    i:=i+2;
    k:=k+2;
   end;
  if (iss>0) and (ks>0) then
   begin
  s:=iss/ks;
  write('s=', s:5:3);
    end
  else
  write('Деление на ­  0');
  readln;
end.