Здравствуйте, Satana666!

Смотрите приложение:
[code lang=pascal]type
f=function(a:real):real;
var
a:integer;
b,x,y:real;
z:f;
function f3(a:real):real;
begin
f3:=a*a*a;
end;
{$f+}
function f2(a:real):real;
begin
f2:=a*a;
end;
function fe(a:real):real;
begin
fe:=exp(a);
end;
function fs(a:real):real;
begin
fs:=(exp(a)-exp(-a))/2
end;
{$f-}
begin
write('enter x:');
readln(x);
Write('enter y:');
readln(y);
repeat
write('select function 1: sqr(x); 2: sh(x) 3: exp(x):');
readln(a);
until a in [1..3];
case a of
1:z:=f2;
2:z:=fs;
3:z:=fe;
end;
if y=0 then
begin
if x=0 then
begin
b:=f3(f2(x)+y);
write('b=',b:0:9)
end
else write('result undefined');
end
else
begin
if x/y>0 then b:=ln(z(x))+f3(f2(z(x))+y)
else if x/y<0 then b:=ln(abs(z(x)/y))+f3(z(x)+y);
write('b=',b:0:9)
end;
end.[/code]
Удачи!