Посчитать значение выражения - Pascal ABC

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

Посчитать значение выражения. При этом найти область определения функций и обеспечить необходимую реакцию программы на некорректные ситуации.

Решение задачи: «Посчитать значение выражения»

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

var a,x,b,c,y:real;
begin
writeln('Введите a,x');
readln(a,x);
b:=2*x-a;
c:=a-x;
if (a=2)or(b=0) then
 begin
  write('y не определено, деление на 0');
  exit;
 end;
if c/b<0 then
 begin
  write('y не определено, квадратный корень из отрицательного числа');
  exit;
 end;
y:=(x*x*x+x+3)/(a-2)+sqrt(b*b*b*b*b/c);
write('y=',y:0:3)
end.

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

Создается переменная a и присваивается ей значение, полученное от пользователя.
Создается переменная x и присваивается ей значение, полученное от пользователя.
Создается переменная b и присваивается ей значение, вычисленное как 2*x-a.
Создается переменная c и присваивается ей значение, вычисленное как a-x.
Проверяется условие: если a равно 2 или b равно 0, то выводится сообщение y не определено, деление на 0 и программа завершается.
Проверяется условие: если c разделить на b меньше нуля, то выводится сообщение y не определено, квадратный корень из отрицательного числа и программа завершается.
Вычисляется значение переменной y по формуле (xxx+x+3)/(a-2)+sqrt(bbb*b/c).
Выводится значение переменной y.
Программа завершается.