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

Подскажите пожалуйста, как написать на Паскале вычисление выражения данной функции?

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

if x<=-1 then y:=-1
else if x<=1 then y:=x
else y:=1;

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

Переменная x имеет значение <=-1>.
Если x имеет значение <=-1>, то присваивается значение переменной y равное -1.
Если x имеет значение >=1>, то присваивается значение переменной y равное x.
Если x имеет значение >1>, то присваивается значение переменной y равное 1.
Код не содержит вложенных списков.