СРОЧНО, помогите пж! 20б.

Question

СРОЧНО, помогите пж! 20б.

---

Answer 1

1)
var 
 x:integer;
begin
writeln('x=');read(x);
if x>-1 then writeln('y=',x*x*x) else writeln('y=',-1/(x*x));
end.

2)
var 
 a,b:integer;
begin
write('a=');read(a);
write('b=');read(b);
if Odd(a-b) then Writeln(2*a*b)else Writeln(sqr(a+b));
end.

---