Помогите пожалуйста надо очень срочно прям вообще

Question

Помогите пожалуйста надо очень срочно прям вообще

---

Answer 1

Var
  x,y:real;
begin
  Read(x);
  if x<=-20 then y:=3*x*x*x<br>  else
    if x<=30 then y:=abs(x) else y:=30;<br>  Writeln(y)
end.