Вычеслить заначение выражения при заначениях аргументов (Paskal)

var x:real; begin readln(x); writeln(ln(arctan(x)/(1+sqr(x)))/ln(3)); end.

Неясно, правда, при чем тут операционная система Android и несуществующий язык программирования Paskal ;)