Помогите составить программму

Question

Помогите составить программму

---

Answer 1

//PascalABC.NET (версия 3.1, сборка 1196 от 09.03.2016)
var x,y:real;
begin
  writeln('Введите Х ');
  readln(x);  
  if x<-2 then y:=8;<br>  if x>2 then y:=-8;
  if (x<=2) and (x >=-2) then y:=-x*x*x;
  writeln('y = ',y);
end.