помогите написать простые программы на Qbasic

1) Программируем формулу
x = 3,285: y = -1,75
b = (1 + tan (x - y) * tan (x - y) * exp (x + 1)) / log (abs (y))
rem Я не помню, как в QB писалась функция натурального логарифма. Возможно, надо писать LN
print b
end

2) Программируем ветвление
X(1) = 0.01: X(2) = -27.3: ...X(15) = -0.02
rem Вводишь все значения Х.
A = 2: B = -3
Z = 1: rem Z - это произведение.
for i = 1 to 15
print "Номера: ";
if X(i) > A then
print i & ", ";
Z = Z * X(i)
end if
next i
print
print "Произведение: " & Z
end

3) Программируем функцию
a = 0.25: b = 0.6: dx = 0.1
x1 = 3.8: x2 = 4.5: x3 = 3.5: x4 = 2.9: x5 = 3.3: x6 = 4: x7 = 4.2
print "Задача А"
print "X", "Y"
for i = x1 to x2 step dx
rem Решаем задачу А
y = (sqrt (b + sin (a * i) * sin (a * i))) / exp (-b * i) / (a * i)^(1/3)
print i, y
next i
print "Задача B"
print "I", "X", "Y"
for i = 1 to 7
rem Решаем задачу B
y = (sqrt (b + sin (a * x(i)) * sin (a * x(i)))) / exp (-b * x(i)) / (a * x(i))^(1/3)
print i, x(i), y
next i
end