Гиперболический котангенс

Гиперболический котангенс

function cth(x:fload):fload;
begin
textcolor(12);
cth:=0;
if x=0
then
writeln('Неверный "x"!')
else
cth:=ch(x)/sh(x);
textcolor(15);
end;