Question

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

Answer 1

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