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.