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.