Nhập vào một số n bất kỳ và kiểm tra xem n có phải là số nguyên tố không giúp mik vs hứa vote 5 sao

Read(n) ; dem:=0;

For i:= 1 to n do 

If n mod i = 0 then dem:= dem+ 1;

If dem>2 then writeln(' n khong la so ng to);

Else writeln (' n la so ng to');

Readln

End.

uses crt;
var n,i:longint;
kt:boolean;
begin
 clrscr;
 write('nhap n:'); readln(n);
 kt:=true;
 for i:=2 to trunc(sqrt(n)) do //chung ta chi can chay den can bac 2 cua n de kiem tra xem n co phai so nguyen to hay khong
 begin
  if(n mod i=0) then begin kt:=false; break; end;
 end;
 if(kt=true) then writeln(n,' la so nguyen to')
 else writeln(n,' khong phai so nguyen to');
 readln;
end.