giúp mình với ạ! mình đang cần

var n,i: integer;
    kt: boolean;
begin
    readln(n);
    kt:=true;
    if n>=2 then begin
        for i:=2 to n-1 do if n mod i = 0 then begin
            kt:=false;
            break;
        end;
    end else kt:=false;
    if kt then write('n la so nguyen to') else write('n khong la so nguyen to')
end.

program CheckPrimeNumber;
var
  n, d, i: integer;
begin
  readln(n);
  d := 0;
  
  if n < 2 then
    writeln('NO')
  else
  begin
    for i := 2 to trunc(sqrt(n)) do
    begin
      if n mod i = 0 then
        d := d + 1;
    end;
    
    if d >= 1 then
      writeln('NO')
    else
      writeln('YES');
  end;
end.