const
  n = 30;

begin
  var pr := 1.0;
  for var k := 1 to n do
    pr *= k < 6 ? (1 - Cos(2 * k)) / 2 + Cos(k) : k > 10 ? (1 - Cos(2 * k)) / 2 + Sin(k) : 0;
  WriteLn('Ответ: ', pr);
end.