Для начала опишем данное выражение в виде арифметического выражения в Паскале:

program QuadraticEquation;
var
x, result: real;
begin
write('Enter the value of x: ');
readln(x);

result := xxx + 9xx + 5*x + 7;

writeln('Result of the equation is: ', result);
end.

После ввода значения переменной x программа вычислит значение выражения и выведет его на экран.