1. составить программу для вычисления функции:

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.