program CalculateExpression;
 
uses
  Math, SysUtils;
 
var
  x, y: Double;
  result: Double;
 
begin
  // Задаем значения x и y
  x := 2;
  y := 1;
 
  // Проверяем, чтобы логарифм не вычислялся от отрицательного числа или нуля
  if x <= 0 then
  begin
    Writeln('Ошибка: ln(x) не определён при x <= 0.');
    Exit;
  end;
 
  // Вычисляем значение выражения
  result := 0.3 * (((Power(Sin(x), 2) - Power(Cos(x), 2)) / 
                    (1 - Sin((x + y) / 2))) - 
                   Exp(Cos(x) + Sin(x))) *
            Ln(x) - Power(x - 1, 0.5);
 
  // Выводим результат
  Writeln('Результат выражения: ', FloatToStr(result));
  Readln;
end.
 

cHJvZ3JhbSBDYWxjdWxhdGVFeHByZXNzaW9uOwoKdXNlcwogIE1hdGgsIFN5c1V0aWxzOwoKdmFyCiAgeCwgeTogRG91YmxlOwogIHJlc3VsdDogRG91YmxlOwoKYmVnaW4KICAvLyDQl9Cw0LTQsNC10Lwg0LfQvdCw0YfQtdC90LjRjyB4INC4IHkKICB4IDo9IDI7CiAgeSA6PSAxOwoKICAvLyDQn9GA0L7QstC10YDRj9C10LwsINGH0YLQvtCx0Ysg0LvQvtCz0LDRgNC40YTQvCDQvdC1INCy0YvRh9C40YHQu9GP0LvRgdGPINC+0YIg0L7RgtGA0LjRhtCw0YLQtdC70YzQvdC+0LPQviDRh9C40YHQu9CwINC40LvQuCDQvdGD0LvRjwogIGlmIHggPD0gMCB0aGVuCiAgYmVnaW4KICAgIFdyaXRlbG4oJ9Ce0YjQuNCx0LrQsDogbG4oeCkg0L3QtSDQvtC/0YDQtdC00LXQu9GR0L0g0L/RgNC4IHggPD0gMC4nKTsKICAgIEV4aXQ7CiAgZW5kOwoKICAvLyDQktGL0YfQuNGB0LvRj9C10Lwg0LfQvdCw0YfQtdC90LjQtSDQstGL0YDQsNC20LXQvdC40Y8KICByZXN1bHQgOj0gMC4zICogKCgoUG93ZXIoU2luKHgpLCAyKSAtIFBvd2VyKENvcyh4KSwgMikpIC8gCiAgICAgICAgICAgICAgICAgICAgKDEgLSBTaW4oKHggKyB5KSAvIDIpKSkgLSAKICAgICAgICAgICAgICAgICAgIEV4cChDb3MoeCkgKyBTaW4oeCkpKSAqCiAgICAgICAgICAgIExuKHgpIC0gUG93ZXIoeCAtIDEsIDAuNSk7CgogIC8vINCS0YvQstC+0LTQuNC8INGA0LXQt9GD0LvRjNGC0LDRggogIFdyaXRlbG4oJ9Cg0LXQt9GD0LvRjNGC0LDRgiDQstGL0YDQsNC20LXQvdC40Y86ICcsIEZsb2F0VG9TdHIocmVzdWx0KSk7CiAgUmVhZGxuOwplbmQuCg==