Решить уравнения - Free Pascal

Формулировка задачи:

Доброго времени суток. Нужно решить 2 Лабораторные по языкам программирования, помогите пожалуйста. 1. Тут написать программу к этому уравнению 2. А здесь помимо программы, нужно проверить чтобы не было деления на ноль , при Буду очень признателен за помощь.

Решение задачи: «Решить уравнения»

Листинг программы

uses crt;
const a=2.34e-2;
var x,y:real;
begin
clrscr;
write('x=');
readln(x);
{первая задача}
y:=arctan(x+1)+exp(x+1)+ln(x*x+2);
writeln('y=',y:0:3);
{вторая задача}
if(x<=0)or(sin(x)*cos(x)=0) then write('y не определено')
else
 begin
  y:=exp(ln(x)*a)*ln(x)+exp(ln(x)*a)*exp(a*x)/sin(x)/cos(x);
  writeln('y=',y:0:3);
 end;
readln
end.

Объяснение кода листинга программы

Используется среда программирования Free Pascal.
Задаются константы и переменные: a) a = 2.34e-2 - коэффициент перед x во втором уравнении; x, y - переменные типа real для решения уравнений.
Очищается экран и выводится приглашение для ввода значения переменной x.
Вводится значение переменной x.
Вычисляется значение переменной y для первой задачи: y = arctan(x + 1) + exp(x + 1) + ln(x*x + 2).
Выводится значение переменной y с точностью до 3 знаков после запятой.
Проверяется условие для второй задачи: if (x <= 0) or (sin(x)cos(x) = 0) then выводится сообщение y не определено else вычисляется значение переменной y для второй задачи: y = exp(ln(x)a)ln(x) + exp(ln(x)a)exp(ax)/sin(x)/cos(x).
Выводится значение переменной y с точностью до 3 знаков после запятой.
Программа ожидает ввода, чтобы пользователь мог увидеть результат.