Question

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

Answer 1

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