begin
  var x := ReadLnReal('Введите число X:');
  var y := ReadLnReal('Введите число Y:');
  var z := ReadLnReal('Введите число Z:');
  var w := Power(Abs(Cos(x) - Cos(y)), (1 + 2 * (1 - Cos(2 * y)) / 2)) * (1 + z + Power(z, 2) / 2 + Power(z, 3) / 3 + Power(z, 4) / 4);
  WriteLnFormat('Ответ: w={0:f4}', w);
end.