Question

составьте, пожалуйста, программу в Pascal

Answer 1

// 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