Вычислить интеграл введенный с клавиатуры пользователем,методом Симпсона(параболы).PascalABC

[Sanginow]

Program Method_Simpsona;
Uses Crt;
Var  x,a,b,h,s:real;
     n:integer;

  Function F(y:real):real;
     Begin
     F:=y/(power(y,4)+4); 
  End;

          BEGIN
Write('Ведите нижний предел интегрирования  а=');Readln(a);
Write('Ведите верхний предел интегрирования b=');Readln(b);
Write('Введите число узловых точек n=');Readln(n);
    h:=(b-a)/n;
    s:=0;
    x:=a+h;
  While x<b do
   begin
     s:=s+4*F(x);
     x:=x+h;
     s:=s+2*F(x);
     x:=x+h;
   end;
     s:=h/3*(s+F(a)-F(b));
     Writeln;Write('Интеграл F=',s);
END.

А как сделать так,чтобы пользователь сам вводил подынтегральную функцию,а программа находила значение введенного подынтегрального выражения.