Даны x, y, z. Вычислить a b, если: - Turbo Pascal

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

Даны x, y, z. Вычислить a b, если: Програму и блок-схему, пожалуйста. P.S Зачем уравнения переписывать? И я не знаю как его перепечатать. Извините за неудобства.

Решение задачи: «Даны x, y, z. Вычислить a b, если:»

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

var
  a, b, x, y, z: real;
 
begin
  Write('X = '); Readln(x);
  Write('Y = '); Readln(y);
  Write('Z = '); Readln(z);
  a := (3 + Exp(y - 1)) / (1 + Sqr(x) * Abs(y - Sin(z) / Cos(z)));
  b := 1 + Abs(y - x) + (Sqr(y - x) / 2) + (Exp(3 * Ln(Abs(y - x))) / 3);
  Writeln('A = ', a:0:2);
  Writeln('B = ', b:0:2);
  Readln
end.

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

Создается переменная a типа real и присваивается ей значение (3 + Exp(y - 1)) / (1 + Sqr(x) * Abs(y - Sin(z) / Cos(z)))
Создается переменная b типа real и присваивается ей значение 1 + Abs(y - x) + (Sqr(y - x) / 2) + (Exp(3 * Ln(Abs(y - x))) / 3)
Выводится значение переменной a с точностью до двух знаков после запятой с помощью функции Writeln и форматирования a:0:2.
Выводится значение переменной b с точностью до двух знаков после запятой с помощью функции Writeln и форматирования b:0:2.
Выполняется чтение следующего ввода с помощью функции Readln.