Программа для вычисления x и y по формулам - Pascal

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

Составить программу для вычисления x и y по формулам . ~~Изображение с формулой прикрепил к ссылке.~~ Формулы: Помогите пожалуйста. Буду ооочень благодарен. (Ссылка на сторонний ресурс удалена)

Решение задачи: «Программа для вычисления x и y по формулам»

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

var a, b, c, x, y, t: real;
 
begin
  write('a = ');
  readln(a);
  write('b = ');
  readln(b);
  write('c = ');
  readln(c);
  x := abs(a - b * sin(c));
  if x = 0
    then writeln('x не определено.')
    else begin
      x := sqr(cos(a * b)) / sqrt(x);
      writeln('x = ', x)
    end;
  y := cos(c * c * c);
  if (sin(b) = 0) or (c = 0) or (y = 0)
    then writeln('y не определено.')
    else begin
      t := 2 * a / b / c;
      y := sin(t) / cos(t) * ln(abs(sqr(sin(b)) / y));
      writeln('y = ', y)
    end;
  readln
end.

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

Создается переменная a и присваивается ей значение, полученное от пользователя.
Создается переменная b и присваивается ей значение, полученное от пользователя.
Создается переменная c и присваивается ей значение, полученное от пользователя.
Вычисляется значение переменной x по формуле abs(a - b * sin(c)) и сохраняется в переменной x.
Проверяется условие x = 0. Если оно выполняется, то выводится сообщение x не определено., иначе выполняется следующая часть кода.
Вычисляется значение переменной x по формуле sqrt(cos(a * b)). Значение x сохраняется в переменной x.
Выводится значение переменной x.
Создается переменная y и присваивается ей значение, вычисленное по формуле cos(c * c * c).
Проверяется условие (sin(b) = 0) or (c = 0) or (y = 0). Если оно выполняется, то выводится сообщение y не определено., иначе выполняется следующая часть кода.
Вычисляется значение переменной t по формуле 2 * a / b / c.
Вычисляется значение переменной y по формуле sin(t) / cos(t) * ln(abs(sqr(sin(b)) / y)).
Значение y сохраняется в переменной y.
Выводится значение переменной y.
Выполняется операция readln().
Конец программы.