Uses crt;

Var N,i,d : Word;

Begin

        If N<2 Then Writeln(N,’ khong phai la so nguyen to’)

       Else

         Begin

           d:=0;

           For i:=2 To N div 2 Do

           If N MOD i=0 Then

          d:=d+1;

          If d=0 Then Writeln(N,’ la so nguyen to’)

         Else Writeln(N,’ khong phai la so nguyen to’);

       End;

Readln;

End.

Program SNT;
Uses crt;
Var n: longint;

Function ngto(a:longint):boolean;
Var i: longint;
Begin
        If i<2 then exit(false);
        For i:=2 to n div 2 do
                If n mod i = 0 then exit(false);
                                    exit(true);
End;

Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        If ngto(n) then Write(n,' la so nguyen to')
        Else Write(n,' khong phai la so nguyen to');
        Readln
End.

----------------------------

Có gì không hiểu bạn cứ để lại facebook, mình sẽ chủ động nhắn tin và giải thích cho bạn ^^