Написать программу вычисляющую значение выражений - Turbo Pascal

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

Написать программу x=0,2 y=1,1 z=0,7

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

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

const
    x = 0.2;
    y = 1.1;
    z = 0.7;
begin
    if ((Abs(z) > 0) And (x / z > 0))
    then
        WriteLn('A=', (Sqr(Sin(Sqr(x) + y)) * Sin(Sqr(x) + y) - Sqr(x / z)):0:2)
    else
        WriteLn('A: ERROR!');
    if (Abs(y) > 0)
    then
        WriteLn('B=', (Sqr(x) / y + Sqr(Cos(x + z)) * Cos(x + z)):0:2)
    else
        WriteLn('B: ERROR!');
end.

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

В начале кода объявляются три переменные: x, y и z. Их значения присваиваются соответствующим образом: x = 0.2, y = 1.1 и z = 0.7.
Затем идет условие if, которое проверяет два условия:
- Абсолютное значение переменной z больше нуля.
- Деление переменной x на z больше нуля.
Если оба условия выполняются, то выводится значение выражения A. Для его вычисления используется функция Sin, которая возводит значения x и y в квадрат, затем вычисляет их сумму и умножает на себя. После этого результат вычитается из квадрата значения x, деленного на z.
Если хотя бы одно из условий не выполняется, то выводится сообщение об ошибке.
Далее идет еще одно условие if, которое проверяет, что абсолютное значение переменной y больше нуля.
Если это условие выполняется, то выводится значение выражения B. Для его вычисления используются те же функции Sin и Cos, что и в предыдущем выражении A, но вместо x+z используется x+y.
Если условие y больше нуля не выполняется, то выводится сообщение об ошибке.
Конец программы.