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

Question

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

Answer 1

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

Answer 2

Var x,y:real;
begin
write('x = ');
readln(x);
if x<-1 then y:=-1<br>  else if x>-1 then y:=x else y:=1;
writeln('y = ',y);
end.

Пример:
x = -1
y = 1