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

[code lang=pascal]type
f=function(a:real):real;
var
a:integer;
d,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 x>y then d:=f3(z(x-y))+arctan(z(x)){*** x>y}
else if x<y then d:=f3(y-z(x))-arctan(z(x)){*** y<x}
else d:=f3(y+z(x))+0.5;
write('d=',d:0:9)
end.[/code]
Использован процедурный тип, для определения функций.
Не соответсвия в условии задания отмечены в комментариях ***.
Удачи!