Решите и нарисуйте блок схему дано действительное x.определить: f(x)=6x^2+5x, если x> -2 x^2-8x+1, в остальных случаях

Var   x,f:real;
Begin     
Readln(x);   
If x>-2 then f:=sqr(6*x)+5*x             
          else f:=sqr(x)-8*x+1;   
Writeln('F(x) = ', f);
End.