Pascal: Функция тангенс (tg)

В языке не нашел этой функции. Странно. Из математики тангенс это отношение sin(x) к cos(x). Вот функция:

[pascal]

function tg (arg : real) : real;
begin
tg := sin(arg)/cos(arg);
end;

[/pascal]