Program Funkiya;
Var X , Y: integer;
begin
Write ('введите число Х');
Read (X);
Write ('введите число Y');
Read (Y);
If X < 0 then Y:= X*X*X - 2
else Y: = X + 3;
Write ('Y =', Y);
end.
