Помогите решить задание по информатике, нужно написать программу в паскале,1)…

Все считаю в одной программе, если что, можно у 1 и у 2 вразные разнести Var x: integer; y1,y2: real; beginwriteln ('Введите х'); readln (x); y1: =(3*exp (4*ln (x)+1) /exp (3*ln (x); y2: =sqrt (8+x) -sqrt (8-x); writeln (‘y1=’,y1); writeln (‘y2=’,y2); end.