nhập 1 số nguyên dương từ bàn phím kiểm tra đó có là số nguyên tố không?

program SNT;

uses crt;

var n,i,d: integer;

Begin

         clrscr;

         write(‘Nhap n: ‘); readln(n);

         d:=0;

         for i:=1 to n do

         if n mod i=0 then d:=d+1;

         if d=2 then write(n,’ la so nguyen to’)

         else write(n,’ khong la so nguyen to’);

         readln

End.