so nguyen to trong pascal

Program songuyen;
Var so,d,i:integer;
begin
d:=0;
write('nhap so = ');readln(so);
for i:=1 to so div 2 do
if so mod i=0 then inc(d);
if d=2 then writeln(' So vua nhap khong phai la so nguyen to')
else writeln(' So vua nhap la nguyen to');
readln;
end.

giải thích cho ae hiểu đy "for i:=1 to so div 2 do
if so mod i=0 then inc(d);" 2 cái đó k hiểu

chưa hiểu pa Nam ơi! nhờ pa Pro giải thích cái đi!

Program songuyen;
Var so,d,i:integer;
begin
d:=0;
write('nhap so = ');readln(so); {Nhập số n từ bàn phím}
for i:=1 to so div 2 do { cho i chạy từ 1 đền so/2}
if so mod i=0 then inc(d); {Nếu so chia i không có dư thì nâng biến d thêm 1 giá trị}
if d=2 then writeln(' So vua nhap khong phai la so nguyen to')
else writeln(' So vua nhap la nguyen to');
readln;
end.

hình nhu thuật toán này chỉ được đối với số tự nhiên có 3 chữ số trở lại thì phải,số có 4 chữ số thì không được.

ok thanks bạn quy để nam test thử xem sao.