Вычислить значение выражения - Pascal ABC (12607)

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

Составить алгоритм и написать решение задачи на Паскале: Вычислить: где х - произвольное число, введенное пользователем с клавиатуры. Помогите пожалуйста! Решение желательно на уровне 10-11 класса.

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

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

var x, y: real;
begin
  write('x = ');
  readln(x);
  if x = 10
    then writeln('Значение функции не определено')
    else begin
      if x > -10 
        then y := x * x * x - abs(x - 12)
        else y := 2 * x * x * x * x * x - abs(x);
      writeln('y = ', y)
    end
end.

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

Объявляются две переменные типа real: x и y.
Выводится сообщение «x = », после чего считывается значение переменной x.
Проверяется условие x = 10. Если оно истинно, выводится сообщение «Значение функции не определено».
Если условие x = 10 ложно, выполняется следующий блок кода.
Вычисляется значение выражения y := x x x - abs(x - 12).
Если x > -10, значение выражения y присваивается переменной y.
Если x <= -10, значение выражения y присваивается переменной y.
Выводится значение переменной y с помощью функции writeln().