mình có một thuật toàn có thể nhanh hơn chút:

function ktnguyento(x:longint):longint;
var i:longint;
begin
i:=2;
while (x mod i <>0) and (x>=2) then
i:=i+1;
if i=x...