Котангенс

Котангенс

function ctg(x:fload):fload;
var a:fload;
begin
textcolor(12);
ctg:=0;
a:=(pi/180)*x;
if frac(x/pi)=0
then
writeln('Неверный угол!')
else
ctg:=cos(a)/sin(a);
textcolor(15);
end;