Вычислить функцию - Pascal ABC (12555)

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

Помогите решить, пожалуйста Вычислить y=tg(x+2)+ctg^2x(ctg(x+1)-tgx), при х=30 градусов, оформив в виде функций вычисление тангенса и котангенса.

Решение задачи: «Вычислить функцию»

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

const
x = 45/180*pi;
function tg(x:real):real;
   begin
   tg:=sin(x)/cos(x);
   end;
function ctg(x:real):real;
   begin
   ctg:=cos(x)/sin(x);
   end;
var
y:real;
begin
y:=tg(x + 2) + sqr(ctg(x)) * (ctg(x + 1) - tg(x));
writeln(y);
end.

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

const x = 45/180pi; - объявляется константа x и присваивается ей значение выражения 45/180pi.
function tg(x:real):real; - объявляется функция tg с типом возвращаемого значения real и параметром x типа real.
begin tg := sin(x)/cos(x); end; - в теле функции выполняется вычисление значения sin(x)/cos(x).
function ctg(x:real):real; - объявляется функция ctg с типом возвращаемого значения real и параметром x типа real.
begin ctg := cos(x)/sin(x); end; - в теле функции выполняется вычисление значения cos(x)/sin(x).
var y:real; - объявляется переменная y типа real.
begin y := tg(x + 2) + sqr(ctg(x)) (ctg(x + 1) - tg(x)); writeln(y); end; - в теле программы выполняется вычисление значения выражения tg(x + 2) + sqr(ctg(x)) (ctg(x + 1) - tg(x)) и вывод результата на экран.