Viết chương trình nhập vào một số tự nhiên N từ bàn phím và kiểm tra N có phải là một số nguyên tố hay không?

uses crt;

var i, N, x : integer;

begin

clrscr;

write('Nhap so N = '); readln(N);

x := 1;

for i := 2 to N - 1 do

if N mod i = 0 then x := 0;

if (x = 1) and (N > 1) then write(N,' la so nguyen to')

else write(N,' khong la so nguyen to');

readln

end.

program kaito;
uses crt;
var n, i, d: integer;
begin
    clrscr;
    d:=0;
    write('Nhap so nguyen N: '); readln(n);
    for i:=1 to n do 
    begin 
        if (n mod i=0) then inc(d);
    end;
    if d=2 then writeln('Day khong phai so nguyen to Day la so nguyen to ')
    else writeln(' Day khong phai so nguyen to ');
    readln
end.