Создайте программу для вычисления значения выражений - Turbo Pascal

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

Листинг программы

uses crt;
const x=-4.59;
      y=-16.3;
      z=12.87;
var w:real;
begin
clrscr;
w:=ln(abs(x+y))+exp(ln(-z*x)/3)+3;
write(w:0:2);
readln
end.

Объяснение кода листинга программы

В начале кода используется директива uses crt;, которая позволяет использовать функции и структуры из встроенной библиотеки CRT (Console Read/Write Functions).
Далее идут три константы x=-4.59; y=-16.3; z=12.87; которые представляют собой значения переменных x, y и z.
Затем объявляется переменная w:real;`, которая будет использоваться для хранения результата вычислений.
С помощью функции clrscr; очищается экран.
Затем выполняется вычисление значения выражения ln(abs(x+y))+exp(ln(-z*x)/3)+3;, где ln обозначает натуральный логарифм, abs - абсолютное значение, а x+y и -z*x являются частями выражения.
Результат вычислений сохраняется в переменной w.
С помощью функции write(w:0:2); выводится значение переменной w на экран.
Наконец, с помощью readln; происходит чтение ввода пользователя.