Помогите, пожалуйста, в программе Pascal вычислить и вывести на экран значение функции при некоторых значениях аргумента

Function tg(x:real):real;
begin
tg:=sin(x)/cos(x);
end;
Function Z(x,y:real):real;
begin

Z:=((sin(x)+cos(y))/(cos(x)-sin(y)))*(tg(x*y))
end;
begin
Writeln(z(5,3));
end.