По введенному значению (x) определить промежуток и вычислить значение (y) в этом промежутке - Free Pascal

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

Задание: по введенному значению (x) определить промежуток и вычислить значение (y) в этом промежутке. Определение промежутка для введенной величины (х) и вычисление соответствующей функции для данного промежутка представить в виде функции. Вывести номер найденного промежутка. При вводе величины (х) не входящей не в один из заданных промежутков, выдать сообщение об ошибке. При корректном определении промежутка – вывести на экран величину найденного значения (y). Промежуток: 1. [-3,-2) 2. [-2, 0) 3. [0, 3] Функция для каждого промежутка: 1. y = 2. y = x/2 3. y= 2x+1 Я в этом полный 0..а уже сдавать нужноСпасите, пожалуйста(

Решение задачи: «По введенному значению (x) определить промежуток и вычислить значение (y) в этом промежутке»

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

program 1; 
var 
x,y:real; 
begin 
readln(x); 
if (x>=(-3)) and (x<(-2)) then y:=x*x*x 
else 
if (x>=(-2)) and (x<0) then y:=x/2 
else 
if (x>=0) and (x<=3) then y:=2x+1; 
writeln(y); 
end

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

Список действий в данном коде:

Ввод значения переменной x с помощью функции readln().
При помощи условного оператора if-else происходит определение промежутка, в котором находится значение переменной x.
Вычисление значения переменной y в зависимости от промежутка, в котором находится значение переменной x.
Вывод значения переменной y на экран с помощью функции writeln().