(Ko giải thích = báo cáo)

Ý tưởng:

- Đặt isPrime = true, mục đích đặt bằng true là vì khi phát hiện `n` không phải số nguyên tố thì gán lại = false, nhưng nếu không phát hiện thì isPrime vẫn sẽ luôn đúng và `n` luôn là số nguyên tố

- Nếu `n < 2` thì isPrime = false

- Ngược lại nếu `n >= 2` thì cho `i` lặp từ `2 -> sqrt(n)` và kiểm tra `n` có chia hết cho `i` không, nếu chia hết thì đồng nghĩa với việc `n` có một ước khác ngoài `1` và chính nó, thì lúc này isPrime = false

Code:

uses crt;
var n, i: longint;
    isPrime: boolean;

begin
clrscr;
    readln(n);
    
    isPrime:=true;
    
    if n < 2 then isPrime:=false
    else
        begin
            for i:=2 to trunc(sqrt(n)) do
                if n mod i = 0 then
                    begin
                        isPrime:=false;
                        break;
                    end;
        end;
    
    if (isPrime) then writeln('YES')
    else writeln('NO');
readln;
end.