Нет у Вас никакого уравнения для решения, а есть достаточно простая функция, представляющая из себя квадратичный полином Y=⅛·x²+5x. Вот как можно выводить её значение после запроса аргумента и его ввода с клавиатуры:
var x, Y: real;
begin
write('x: ');
readln(x);
Y := x * (5 + 0.125 * x);
writeln('Y = ', Y)
end.
А Паскали, вообще-то, разные бывают. Так ЭйБиСи.Нет - Паскаль только по названию и по большому счёту совершенно никому не нужен, хотя именно его до сих пор зачем-то вдалбливают учащимся. Код вверху на ФриПаскале, если это существенно, но его ещё можно как угодно модифицировать в зависимости от технического задания, которое сразу надо было писа́ть!
У=5x+x^2/8