Задание 9.Сделать в паскале.

Question

Задание 9.Сделать в паскале.

---

Answer 1

Var
  x,y:real;
begin
  Read(x);
  if x<3 then y:=-x<br>  else
    if x=3 then y:=x+1
    else
      if x<=5 then y:=x/2<br>      else { этв ветка не определена условием, нельзя задавать x>5 };
  Writeln(y)
end.