program Fx;
var
x, fx: Double;
begin
Write ('X = ');
ReadLn (x);
if x <= 3 then
fx := x * x - 5 * x + 4
else
fx := 1 / (x * x * x + 8);
WriteLn ('F (x) = ', fx :15 :10);
ReadLn;
end.
