Вычислить значение функции - Turbo Pascal (33922)

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

Вычислить значение функции:

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

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

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

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

Объявляются две переменные типа real: x и y.
Выводится сообщение «X = », после чего считывается значение переменной x.
Проверяется условие: если значение x меньше -2, то присваивается значение переменной y равное синусу квадрата x. В противном случае, если значение x находится в диапазоне от -2 до 2, присваивается значение переменной y, равное абсолютному значению x. В остальных случаях присваивается значение переменной y, равное корню из суммы x и 256.
Выводится сообщение «Y(x) = », после чего выводится значение переменной y с точностью до 6 знаков после запятой.
Считывается команда readln, которая завершает работу программы.