Уравнение в poscal

Нет у Вас никакого уравнения для решения, а есть достаточно простая функция, представляющая из себя квадратичный полином Y=⅛·x²+5x. Вот как можно выводить её значение после запроса аргумента и его ввода с клавиатуры:

 var x, Y: real;
begin
  write('x: ');
  readln(x);
  Y := x * (5 + 0.125 * x);
  writeln('Y = ', Y)
end. 

А Паскали, вообще-то, разные бывают. Так ЭйБиСи.Нет - Паскаль только по названию и по большому счёту совершенно никому не нужен, хотя именно его до сих пор зачем-то вдалбливают учащимся. Код вверху на ФриПаскале, если это существенно, но его ещё можно как угодно модифицировать в зависимости от технического задания, которое сразу надо было писа́ть!