Составьте программу на паскале F (x) = x²-3x+9 если x≤3 = (1) / (x²+6) если x>3

Составим программу на языке программирования Паскаль, которая будет находить значение заданного выражения при введенном значении параметра с клавиатуры:

programm zhnachenie;

var f, x: integer;

writeln ('Введите значение неизвестной переменной x: ');

readln (x);

if x > 3 then

f = 1 / (sqr (x) + 6);

writeln ('Вычисляем значение формулы: 1 / (sqr (x) + 6) = ', f);

readln (f);

else

f = sqr (x) - 3 * x + 9;

writeln ('Вычисляем значение формулы: sqr (x) - 3 * x + 9 = ', f);

readln (f);

end.