Вычислить D при любых заданных значениях a, c, x - Pascal ABC

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

Вычислить D при любых заданных значениях a,c,x;

Решение задачи: «Вычислить D при любых заданных значениях a, c, x»

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

var a,c,x,d:real;
begin
writeln('Введите значения a,c,x');
readln(a,c,x);
if abs(x-2)+a=0 then write('D не определено, деление на 0')
else
 begin
  if x<0 then d:=c*c*c*c*c/(x*x+2)
  else d:=(a+sin(x))/(abs(x-2)+a);
  write('D=',d:0:3);
 end;
end.

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

Создается переменная a и присваивается ей значение, введенное пользователем.
Создается переменная c и присваивается ей значение, введенное пользователем.
Создается переменная x и присваивается ей значение, введенное пользователем.
Создается переменная d и присваивается ей значение, которое будет вычислено далее.
Выводится сообщение с просьбой ввести значения a, c и x.
Число x сравнивается с 2. Если они равны, то выводится сообщение о том, что D не определено, так как происходит деление на 0.
Если x меньше нуля, то вычисляется значение d как квадрат числа c возведенного в степень 4, деленный на (x*x+2) (этот фрагмент кода повторяется для всех значений x меньше нуля).
Если x больше или равно 0, то вычисляется значение d как (a+sin(x))/(abs(x-2)+a) (этот фрагмент кода повторяется для всех значений x больше нуля).
Значение d выводится на экран в формате D=, за которым следует число с 0-3 знаками после запятой.