Вычислить функцию - Turbo Pascal (33854)

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

Сделать программу на Турбо Паскале(Вложена картинка)/

Решение задачи: «Вычислить функцию»

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

var
  y, x : real;
begin
  write('X = ');
  readln(x);
  if x < 2 then y := x * x * x - 2 else
    if (x >= 2) and (x <= 4) then y := sqrt(4 - x) else
      y := x + 11;
  writeln('Y(', x, ') = ', y:6:2);
  readln
end.

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

Объявляются две переменные типа real: y и x.
Выводится сообщение «X = », после чего считывается значение переменной x с помощью функции readln.
Выполняется проверка условия x < 2. Если это условие истинно, то присваивается переменной y значение выражения xxx - 2.
Выполняется проверка условия (x >= 2) и (x <= 4). Если это условие истинно, то присваивается переменной y значение sqrt(4 - x).
Если ни одно из вышеуказанных условий не выполняется, то присваивается переменной y значение x + 11.
Выводится сообщение «Y(x) = », после чего выводится значение переменной y с точностью до 6 знаков после запятой.
Выполняется команда readln для чтения значения переменной x.