Составить программу для вычисления значения функции
y={(-1,если x<-1
x,если x>-1
1,если x=-1)
Помогите !!! Срочно нужно.

Var x:real;BeginWrite('x = ');ReadLn(x);if x<-1 then Write('y = ',-1)   else if x>-1 then Write('y = ',x)        else Write('y = ',1)End.