begin
  var x := ReadLnReal('Введите число X:');
  var s := 0.0;
  for var i := 2 to 15 do s += i * cos(i * x);
  WriteLn('Ответ: S=', s);
end.