Процедура для вычисления значения y - Turbo Pascal

Напишите процедуру для вычисления значения y. y=√ l tg^2 x l / ln x

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

procedure P(x:real;var y:real);
begin
  if (x>0) and (x<>1) then y:=sqrt(sqr(sin(x)/cos(x)))/ln(x)
  else writeln('Функция не определена');
end;

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

В процедуре P используется функция sqr, которая возводит аргумент в квадрат.
Затем выполняется деление полученного значения на cos(x), что приводит к обратному значению синуса.
Далее выполняется деление на ln(x), что приводит к натуральному логарифму значения x.
Если условие (x>0) и (x<>1) выполняется, то значение y вычисляется как квадратный корень из полученного значения.
Если хотя бы одно из условий не выполняется, то выводится сообщение Функция не определена.