Нужно исключить ситуацию, когда cos(x)=0

program pr_10_1;
uses crt;
var a,x,k,d,b:real;
function calc(a,x: real): real;
begin
calc:=(sin(x+PI/6)/cos(x+PI/6))/(sqrt(a+sin(x+0.123)));
end;
begin
clrscr;
write('Input a?->');
readln(a);
write('Input x?->');
readln(x);
k:=cos(x+PI/6);
d:=a+sin(x+0.123);
if (k=0) or (d<=0) then
writeln('Error') else
writeln('Result = ',calc(a,x):1:4);
writeln('cos(',x:1:4,'+pi/6)= ',k:1:4);
readln;
end.

program pr_10_1;
uses crt;
var a,x,k,d,b:real;
function calc(a,x: real): real;
begin
calc:=sin(x+PI/6)/cos(x+PI/6)/sqrt(a+sin(x+0.123));
end;
begin
clrscr;
write('Input a?->');
readln(a);
write('Input x?->');
readln(x);
if(cos(x+PI/6)=0)or(a+sin(x+0.123)=0) then write('Значение функции не определено')
{но ввести такие a,x не реально}
else write('Result = ',calc(a,x):0:4);
readln;
end.

writeln('cos(',x:1:4,'+pi/6)= ',k);