Дано действительное число а. Вычислить f(a), где f-периодическая функция с периодом 2, совпадающая на [-1;1] - PascalABC.NET

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

Дано действительное число а. Вычислить f(a), где f-периодическая функция с периодом 2, совпадающая на [-1;1] со следующей функцией. Задание нужно выполнить используя ТОЛЬКО условия.Не использовать циклы, процедуры, функции и тому подобное.

Решение задачи: «Дано действительное число а. Вычислить f(a), где f-периодическая функция с периодом 2, совпадающая на [-1;1]»

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

var a,y:real;
begin
write('a=');
readln(a);
while a<-1 do a:=a+2;
while a>1 do a:=a-2;
if a<=0 then y:=a+1 else y:=1-a*a*a;
write('y=',y:0:2);
end.

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

Переменная a инициализируется значением, введенным пользователем.
Используется цикл while для корректировки значения переменной a, чтобы оно находилось в интервале [-1;1].
Если значение переменной a меньше или равно нулю, то значение переменной y устанавливается равным a+1.
В противном случае, значение переменной y вычисляется как 1-a*a*a.
Значение переменной y выводится на экран с точностью до двух знаков после запятой.