Косеканс

Косеканс

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