Решить 16 задание,через паскаль.

Question

Решить 16 задание,через паскаль.

---

Answer 1

Program asd;
Var
  x,y:real;
Begin
  Write('x= ');
  Readln(x);
  If (x<=0)<br>     then y:=x+2
   else
     If (x>0) and (x<3)<br>      then y:=-x+2
    else
      If (x>=3)
        then y:=-2;
  Writeln('y= ',y);
End.
Тестовые значения: 
x= 5
y= -2