Вычислить значение выражения по заданной формуле - Turbo Pascal (29322)

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

Написать программу: Даны целое число n, действительные числа i,j,k вычислить:

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

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

var
  n, m : Integer;
  t, i, j, k : Real;
begin
  ReadLn(n, i, j, k);
  t := i + k * k;
  if abs(n * sin(t)) < 1e-5 then
    begin
      WriteLn('Деление на ноль.');
      Halt;
    end;
  WriteLn('d = ', (abs(t) - sqrt(i * i * k * k * (abs(i) + abs(k)) + 1)) / n / sqr(sin(t)) :0:3);
end.

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

В начале объявляются переменные: n, m, t, i, j, k, которые представляют собой целочисленные и вещественные значения.
Затем выполняется команда ReadLn(n, i, j, k), которая считывает значения переменных n, i, j, k с консоли.
Далее вычисляется значение переменной t как суммы i и k, умноженной на i.
Затем проверяется условие abs(n * sin(t)) < 1e-5. Если оно истинно, то выводится сообщение Деление на ноль. и функция Halt() вызывается для остановки программы.
Если условие не выполняется, то выводится значение переменной d в формате d = .... Значение переменной d вычисляется как разность между abs(t) и квадратным корнем из суммы квадратов i, j и k, а также суммы абсолютных значений i и j, умноженных на sin(t). Результат выводится с точностью до трех знаков после запятой.