КТО МОЖЕТ ПОМОЧЬ С PASCAL ?⁠⁠

Шаг 1. Вводим a, Xн,Xк,  X

Шаг 2. Если x<=a, вычисляем z:= ((a*sqr(ln(x)))/(a+sqrt(x)))

Шаг 3. Если нет, то x>a, вычисляем z:= ((sqr(sin(x)))/(sqrt(x)+a*x))

Шаг 5. Выводим z

Шаг 6. Конец