Вычислить значение арифметического выражения - PascalABC.NET

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

Здравствуйте, не могли бы подсказать с решением данной задачи: Вычислить значение арифметического выражения следующего вида: я его уже преобразовал, тем он выглядит так:

                    Листинг программы
                
b = c*(sqrt(y+sqr(x)))*(cos(x)-abs(c-y))
d = (x-y)+arctg(x), при x>y;
    (y-x)^3+arctg(x), при y>x;
    (y+x)^3+0.5, при x=y

Пример решения:

                    Листинг программы
                
 
                        
                          
                    
Var
  A, B, C, D, Y ,f: Real;
Begin
  A:=1.5; B:=4.3; C:=10; D:=7.1; {ввод данных}
  Y:=(A*Sqrt(Abs(Sin(A+B*C)))-Exp(-A*C))/Sqrt(Abs(2*B+D));
  WriteLn (‘Y=’, Y:8:3); {вывод результата}
  f:=0; {перед началом вычисления значению f присваивается 0 (можно любое
    другое значение) для того, чтобы в случае, если ни одно из условий не
    выполнится, на экран вывелось f = 0, т.е. чтобы значение f не осталось
    неопределенным }
  if (y>0) and (y<=20) then f:=2*y;
  if (y=0) then f:=y+2;
  if (y<0) or (y>25) then f:=y/2;
  WriteLn (‘f=’, f:8:3);
End.

Пожалуйста помогите с решением! Начал делать на Паскаль ABC.NET

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

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

var
b,d,c,y,x:real;
begin
 writeln('Введите x');
 readln(x);
 writeln('Введите y');
 readln(y);
 writeln('Введите c');
 readln(c);
 b:=c*(sqrt(y+sqr(x)))*(cos(x)-abs(c-y));
 writeln('b=',b:8:3);
 d:=0;
 if x>y then d:=(x-y)+arctan(x);
 if x<y then d:=power((y-x),3)+arctan(x);
 if x=y then d:=power((y+x),3)+0.5;
 writeln('d=',d:8:3);
end.

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

Объявлены переменные b, d, c, y, x типа real.
Выводится сообщение Введите x, затем происходит чтение значения переменной x с помощью функции readln.
Выводится сообщение Введите y, затем происходит чтение значения переменной y с помощью функции readln.
Выводится сообщение Введите c, затем происходит чтение значения переменной c с помощью функции readln.
Значение переменной b вычисляется как произведение (c(sqrt(y+sqr(x)))(cos(x)-abs(c-y))).
Выводится сообщение b=значение b, где значение b форматируется с использованием спецификатора 8:3 для вывода числа с фиксированной точностью и тремя знаками после запятой.
Значение переменной d вычисляется в зависимости от значений переменных x и y с использованием условного оператора if.
Выводится сообщение d=значение d, где значение d форматируется с использованием спецификатора 8:3 для вывода числа с фиксированной точностью и тремя знаками после запятой.
Код завершается.