Гиперболический косинус

Гиперболический косинус

function сh(x:fload):fload;
begin
ch:=(exp(x)+exp(-x))/2;
end;