Рассчитать значение выражения по заданной формуле.

program Project1;
const
  z = 0.7; { Значение константы z}
  t = 2.4; { Значение константы t}
var
  x: real; { Переменная для хранения значения аргумента X}
  n: real; { Переменная для хранения значения аргумента N}
  y: real; { Переменная для хранения значения результата вычисления}
  d1,d2: real; { Промежуточные переменные для вычислений}
begin
  write('Введите значение аргумента Х: ');
  readln(x);
  write('Введите значение аргумента N: ');
  readln(n);
  d1:= n/10;
  d2:= z*z;
  if x < d1 then
    begin
      if (abs(cos(d2)) < 1E-10) or (t < 0) then
        writeln('Функция не определена.')
      else
        y:= sin(d2)/cos(d2) - sqrt(t*t*t);
 
    end
  else
    if x = d1 then
      begin
        if z = 0 then
          writeln('Функция не определена.')
        else
          y:= exp(-x/z + 2) - 8.3;
      end
    else
      if x > d1 then
        y:= sin(x + 0.5*d2);
  writeln('y(x)= ',y:0:4);
  readln;
end.