Объяснение:
uses crt;
var x, F: real;
begin
write('x = ');
readln(x);
if x<=3 then
F:=x*x-3*x+9
else
F:=1/(x*x*x+6);
writeln(F);
end.
