program BiBo212;
uses crt;
var i,n :longint; KT :boolean;
begin
        clrscr;
        write('Nhap so n: ');readln(n);
        KT:=true; //Coi n la snt;
        if n<2 then KT:=false
               else For i:=2 to n-1 do
                    if n mod i=0 then
                        begin
                                KT:=false;
                                break;
                        end;
        if KT=true then writeln('',n,' la so nguyen to')
        else writeln('',n,' khong phai so nguyen to');
        readln;
end.

uses crt;
var i,n:longint;
begin
clrscr;
   repeat
   write('Nhap 1 so:'); readln(n);
   until n>=0; i:=2;
   while (n>2)and(n mod i<>0) do inc(i);
   if i=n then writeln('Day la so nguyen to')
   else writeln('Day khong phai la so nguyen so');
   readln
end.

Một số text cho bạn tham khảo: