Последовательность чисел а1, а2,…,а100 задана формулой ak=sin2(3k+5)-cos(k2-15), k=1,2,…,100. Определите сколько членов последовательности с номерами 1, 2, 4, 8, 16, … имеют значение, меньшее 0,25.- Pascal(Паскаль)

Program Test;
Var
  cnt,k:word;
  a:real;
Begin
  cnt:=0;
  k:=1;
  while k<=100 do
    begin
      a:=sqr(sin(3*k+5))-cos(2*k-15);
      k:=k*2;
      if a<0.25 then inc(cnt)
    end;
  writeln('  Count = ',cnt);
  readln;
End.