Пожалуйста надо срочно дам 20 баллов!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Question

Пожалуйста надо срочно дам 20 баллов!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

---

Answer 1

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

Пример:
x = -5
y = 5