IV/18

program IV;
var
k,i, last_fact:integer;
x, p, last_x:real;
begin
p:= 1.0;
ReadLN(k);
ReadLN(x);
last_x := 1;//будем запоминать последнее значение выражения x^i, чтобы не вычислять каждый раз заново
last_fact:= 1;//так же поступим с факториалом числа i
for i := 1 to k do
begin
    p := p * (1 + (last_x*x)/(2*last_fact*i));//домнажаем на выражение, зная значения на предыдущем шаге
    last_x := last_x * x;//обновляем соответствующие величины
    last_fact := last_fact * i;
end;
WriteLN(p);
end.