Вычислить значения при заданной переменной - Pascal ABC

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

При x=10 вычислить (в конце написано "+arctg(exp(x))", exp(x), это экспонента в степени x???) где a,b,c,d - числа с клавиатуры

Решение задачи: «Вычислить значения при заданной переменной»

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

const x=10;
var a,b,c,d,t1,t2,t3,y,z:real;
begin
writeln('Введите a,b,c,d');
readln(a,b,c,d);
t1:=ln(x+7);
if 1<0 then write('y не определено')
else
 begin
  y:=cos(sqrt(t1*t1*t1))+arctan(exp(abs(x)));
  if(cos(y)=0)or(cos(y/2)=0) then write('z не определено')
  else
   begin
    t2:=c+d*y;
    if t2=0 then  write('z не определено')
    else
     begin
      t3:=sin(y/2)/cos(y/2)+t2;
      if t3=0 then  write('z не определено')
      else
       begin
        z:=1/cos(y)+ln(t3);
        write('y=',y:0:3,'  z=',z:0:3);
       end
     end
   end
 end
end.

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

Объявляются переменные: x, a, b, c, d, t1, t2, t3, y, z, которые представляют собой числа с плавающей точкой.
Выводится приглашение пользователю ввести значения a, b, c, d.
Числа a, b, c, d считываются из ввода пользователя.
Вычисляется значение t1 как натуральный логарифм суммы x + 7.
Проверяется, не является ли y неопределенным. Если это так, выводится сообщение об ошибке. В противном случае вычисляется значение y как косинус квадратного корня из t1, увеличенный на арктангенс абсолютного значения x.
Проверяется, не является ли y или y/2 неопределенными. Если это так, выводится сообщение об ошибке. В противном случае вычисляется значение t2 как сумма a и b*y.
Проверяется, не является ли t2 равным нулю. Если это так, выводится сообщение об ошибке. В противном случае вычисляется значение t3 как синус y/2, деленный на косинус y/2, плюс t2.
Проверяется, не является ли t3 равным нулю. Если это так, выводится сообщение об ошибке. В противном случае вычисляется значение z как 1/cos(y) плюс логарифм t3.
Выводится сообщение с значениями y и z.