Решите, что сможите пожалуйста

Question

Решите, что сможите пожалуйста

---

Answer 1

1)Var x,y:integer;
Begin
Readln(x);
If x>0 then
Y:=x*x*x;
If x<=0 then<br>Y:=4*x;
Writeln(y);
End.
2)Var x,y:integer;
Be
Readln(x);
If x<-2 then<br>Y:=abc(x);
If (x>=-2) and (x<=3) then<br>Y:=2-x;
If x>3 then
Y:=x;
Writeln(y);
End.