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

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