Пожалуйста посчитайте задачу и составьте блок схему

Код к задаче написан на . Блок схему приложил вместе с кодом и выводом компилятора:

var x: integer;

f_x: real;

begin

   write('Enter value of "x": x = ');

   read(x);

   f_x:= 0;

   if (x <= 3) then

   begin

       f_x:= x*x + 3*x + 90;

   end;

   if (x > 3) then

   begin

       f_x:= (sin(x))/(x*x - 9);

   end;

   writeln('f(x) = ',(f_x):0:2);

end.

1. огромное спасибо ещё раз. жду программу