program nguyen_to;

uses crt;

var n,i:integer;

begin

       clrscr;

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

       if n<2 then write('Khong phai')

       else

              begin

                     i:=2;

                     while n mod i<>0 do i:=i+1;

                     if i=n then write('Phai')

                            else write('Khong phai')

              end;

       readln;

end.

Bài sẽ chạy nhanh hơn là chạy thẳng 1 mạch từ 1 đến n để đếm ước.

program phuongt;
uses crt;
 var n, s, i: integer;
begin
          clrscr;
         write('Nhap n = '); readln(n);
         s:=0; i:=1;
         if n<2 then write(n, ' khong phai so nguyen to');
         if n=2 then write(n, ' la so nguyen to');
         if n>2 then
         while i<=n do
         begin
                      if n mod i = 0 then s:=s+1;
                      i:=i+1;
        end;
        if (s=2) then write(n, ' la so nguyen to') else write(n, ' khong la so nguyen to');
        readln
end.