Процедура для вычисления ctg(x)

[Obender13]

Здравствуйте, вот возникла такая проблема не могу написать программу что бы в теле вычислялась данная функция:
y=ctg(5x)+ctg(x/2)-1/ctg^2(4)
а в процедуре:
ctg(x)=cos(x)/sin(x)

[Anatole]

1) создаем свою функцию

Function ctg(x:real):real;
  begin
  ctg(x)=cos(x)/sin(x); 
  end;

2) используем ее в програме

y=ctg(5*x)+ctg(x/2)-1/sqr(ctg(4))