Question

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

Answer 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.