Kompetisi Sains Nasional (KSNK) Kota 2020 - Komputer, Nomor 40

Perhatikan potongan program berikut ini:

function apaIni(kwak : integer) : boolean;
var i, j : integer;
begin
  if (kwak * kwak = kwak) then
  begin
    apaIni := false;
    exit;
  end;
  for i := 2 to (kwak - 1) do
  begin
    j := 1;
    while j * i <= kwak do
    begin
      if (i * j = kwak) then
      begin
        apaIni := false;
        exit;
      end;
      j := j + 1;
    end
  end;
  apaIni := true;
end;

function apaItu(kwok : integer) : integer;
var i, kwak, kwik : integer;
begin
  kwak := kwok;
  kwik := 0;
  for i := 0 to kwak do
  begin
    if (apaIni(i) = true) then
      kwik := kwik + 1
  end;
  apaItu := kwik;
end;

Berapa nilai dari apaItu(1000)?

a. 16
b. 24
c. 25
d. 157
e. 168