Question

Помогите пж Pascal. А то зачет

Answer 1

Ответ:

var x: integer;

begin

write('x = ');

readln (x);

if x < 0 then write('y = ',x*x)

else write('y = ',x*x*x-2)

end.