Функция для вычисления значения y - Turbo Pascal

Формулировка задачи:

Напишите функцию для вычисления значения y. y= √ l cos^3x l / ln x + a

Решение задачи: «Функция для вычисления значения y»

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

function F(x,a:real):real;
var
  t:real;
begin
  if (x>0) and (x<>1) then begin
    t:=cos(x);
    F:=sqrt(abs(t*t*t))/ln(x)+a;
  end
  else writeln('Функция не определена');
end;

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

Создается функция F с двумя аргументами: x и a типа real.
Создается переменная t типа real.
Если условие x>0 и x<>1 выполняется, то выполняется следующий блок кода:
- переменная t инициализируется значением cos(x).
- переменная F инициализируется значением sqrt(abs(ttt))/ln(x)+a.
Если условие не выполняется, то выводится сообщение Функция не определена.
Конец функции.