Ввод функции с клавиатуры (Паскаль)

[DeMMonoloG]

Доброго времени суток! Немогу понять какой тип данных надо задать для ввода произвольной функции F(x) с клавиатуры, используется судя по всему процедурный тип данных, а к переменным типа function ни read, ни write не применяется, может есть какие-то хитрости? Общая структура программы вроде такого

type fun=function(x:real):real;
var fxn:fun; x2:real; fx:???
begin
read(fx);
read(x2); 
fx:=fxn;
write ('F(x)= ', fxn(x2));
readln;
end.

На FPC это можно сделать как

uses
  comobj, activex;
var
  script: olevariant;
begin
  Script := CreateOleObject('MSScriptControl.ScriptControl');
  Script.Language := 'JScript';
  writeln(Script.Eval('var x = 2.3; (x+1.9)*Math.sin(x/3)'));
end.

и задать строку 4ерез Format, но хотелось бы как-то попроще и в виде схожем с первым вариантом, т.к. от этой функции еще будет с4итаться процедура с нахождением зна4ений на оси.

[Stilet]

может есть какие-то хитрости?

Так не получится. Паскаль нативный язык, а не скриптовый.
Вон у тебя есть пример с JS, чего б его и не использовать?
Могу еще один подкинуть где в качестве решателя формул задействован Экзел.

[DeMMonoloG]

Сообщение от Stilet

Вон у тебя есть пример с JS, чего б его и не использовать?

Мне потом эту функцию надо в процедуру пихать, а 4ерез яву он просто зна4ение находит... Скинь с Экзелем, может там все попроще будет...
Всегда есть вариант просто прописать все возможные варианты и вызывать при вводе, но ради заморо4ек препода писать прогу на 800 строк как-то не тянет.

[Stilet]

Скинь с Экзелем, может там все попроще будет...

То же самое - он ее тебе посчитает.
Не умеет паскаль так делать как ты задумал. Только его платный скриптовый вариант, который кажись в Delphi XE развиваться только только вот стал.