Verified answer

Ответ:

program SinX;

var

 n, i: Integer;

 x, p: Double;

begin

 Write ('n = ');

 ReadLn (n);

 Write ('x = ');

 ReadLn (x);

 p := 1;

 for i := 1 to n do begin

   p := p * (i + Sin (x));

 end;

 WriteLn ('Произведение = ', p :20 :10);

 ReadLn;

end.