F(x) =x²-3x+9 если x≤3 = (1)/(x²+6) если x> 3 решите функцию в программе pascal и составьте блок схему

Program s123;
Var x,y:real;
Begin 
Writeln('F(x) =x²-3x+9 если x≤3, F(x)=(1)/(x²+6) если x>3'); 
Writeln('Введите значение переменной x'); 
Readln(x); 
If (x<3) or (x=3) Then y:=sqr(x)-3*x+9 Else y:=1/(sqr(x)+6); 
Writeln('F(x)=',y);
End.