При вычислении результата функции программа не останавливается

Program Laba_2;
uses crt;
var a,b,c,amax,amin,da,f: real;
begin
clrscr;
write('введите значение а минимальное: ');
readln(amin);
write('введите значение а максимальное: ');
readln(amax);
write('введите шаг изменения функции: ');
readln(da);
write('введите значение b: ');
readln(b);
write('введите значение c: ');
readln(c);
a:=amin;
if (b=0)or (a=0) then
writeln('вычисление функции невозможно')
else
while amin<=amax do
begin
f:=power((a*c+(8*c)/b),1/5)-cos(a)/sin(a);
writeln('a=',a:0:3,' b=',b:0:0,'c=',c:0:0,' f=',f:0:3);
a:=a+da;
end;
readln;
end.

if (b=0)or (sin(a)=0) then
writeln('âû÷èñëåíèå ôóíêöèè íåâîçìîæíî')
else
 begin
  a:=amin;
  while a<=amax do
   begin
    f:=power((a*c+(8*c)/b),1/5)-cos(a)/sin(a);
    writeln('a=',a:0:3,' b=',b:0:0,' c=',c:0:0,' f=',f:0:3);
    a:=a+da;
   end;
 end;
end.