Нужна помощь, помогите написать программу на паскале Опции

Привет всем ! Помогите пожалуйсто сделать программу вот на этот пример:


Y= Ch (e в степени x -8.35 (x-квадрат ) (х+1) и все это под корнем ..+корень 3 степени ) .....
Zn = 2 в степени sinx - Ln|sin2x|
эту дробь нужно решить с циклом ....примерное начало я знаю

program lab_5
uses crt;
var plg,x,xn,xk,h,y,zn,ch: real ;
const t=1e-9
Begin
clrscr;
write('enter xn,xk,h=')
readln(xn,xk,h)

а дальше понятия не имею.....помогите

Дальше через функцию log в степень, все остальные функции смотри в math.