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

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