Секанс

Секанс

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