function CalculateExpression(x, k, n: integer): real;
begin
CalculateExpression := ln(sqr(abs(x + k))) * cos(sqr(k) + x) / n;
end;