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

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