Найти max значение из трёх велечин ,апределяемых арифметическими выражениями а=tg(x) ,b=ctg(x),c=ln(x) при заданых значениях х

PascalABC.NET:

## var x := ReadReal('x:'); var (a, b, c) := (Tan(x), 1/Tan(x), Ln(x)); Max(a, b, c).Print