Структуризация программ. Функции

[Игорь_кпи]

Написать функцию, которая находит гиперболический синус и реализуется формулой: y=sh(x)=(e^(x)-e^(-x))/2

[Mad_Cat]

function shin(x:real):real;
begin
shin:=exp(x)/2-exp(-x)/2;
end;