Программа

INPUT "Введите A ", A       'Ввод A
INPUT "Введите Z ", Z       'Ввод Z
SqrZ = SQR(Z) 'Приведение аргумента
Pow = EXP(A * LOG(SqrZ)) 'Вычисление степени
Y = (1 - SqrZ) / (1 + SqrZ) + 1 'Вычисление первой части формулы
IF A > Z THEN
  Y = Y + Pow
ELSE
  Y = Y + 1 / Pow
END IF
PRINT "Y="; Y 'Вывод результата