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

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

y= 15 - 3x, если -1<x<4 "знак пересечения" 6+4x для всех других x прошу прощения за математическую безграмотность, но я не знал как записать по-другому.

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

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

var
  x,y: real;
begin
  write('x = ');
  readln(x);
  if(x>-1) and (x<4) then
    y:=15-3*x
  else
    y:=6+4*x;
  writeln('y = ',y:0:4);
  readln;
end.

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

Объявляются две переменные типа real: x и y.
Выводится сообщение «x = », после чего считывается значение переменной x с помощью функции readln.
Проверяется условие: если x больше -1 и меньше 4, то присваивается значение переменной y, равное 15 минус 3 умноженное на x. В противном случае, присваивается значение переменной y, равное 6 плюс 4 умноженное на x.
Выводится значение переменной y с точностью до 4 знаков после запятой с помощью функции writeln.
Выводится символ новой строки с помощью функции readln.