Em tự vik hàm kiểm tra nguyên tố nha
chắc em vik được
ko thì search google
)
Function nguyento(i:integer):boolean;
..........
Function cattrai(x:integer):integer;
............
Function sieunguyento(i:integer):boolean;
Var bo:boolean;
Begin
If nguyento(i) and sieunguyento(cattrai(i)) then sieunguyento:=true else sieunguyento:=false;
End;
ANh bận nên giúp đc chừng này thôi