Ответ:

pascal

Объяснение:

var k, n: integer;

   p, x: real;

begin

 Write('Введите значение n: '); readLn(n);

 Write('Введите значение x: '); readLn(x);

 p := 1;

 for k := 1 to n do

   p := p * ((1+ sin(k * x)) / k);

 WriteLn('P = ', p:1:3);

end.