// PascalABC.NET 3.3, сборка 1579 от 18.11.2017
// Внимание! Если программа не работает, обновите версию!
begin
var (x,y):=ReadReal2('Введите через пробел x и y: ');
Writeln('Z = ',x/Ln(Abs(x))+y/(Cos(x)-x/3):0:5)
end.
Пример
Введите через пробел x и y: 2.15 -3.1
Z = 5.26122