Составить программу вычисления выражения. X*lg(X) + y/(cos(X)- 3/x)- PureBasic(Бейсик)

Dim x as Integer = 2
DIM y as Integer = 3
DIM z as Double

z = X * log(X) + y / (cos(X) - 3/x)

print "Rez = "; z