var kancil, panda, i, j: integer;
begin
   for i := 2 to 100 do
   begin
      j := 1;
      kancil := 0;
      while(j <= i) do
      begin
          if i mod j = 0 then inc(kancil);
          inc(j);
      end;
      if kancil = 2 then inc(panda);
   end;
   writeln(panda);
end.

Apakah keluaran dari program di atas? a. 10 b. 15 c. 25 d. 30 e. 40