Function ngto(N:integer):Boolean;
Var i:integer;
Begin
ngto:=false;
For i:=2 to trunc(sqrt(N)) do 
if N mod i = 0 then exit;
ngto:=true;
End;

Program Tenchuongtrinh;
Uses crt;
Var n:longint;

Function nto(x:longint): boolean;
  Var i,t:longint;
  Begin
    If (x<2) then exit(false);
    If (x=2) or (x=3) then exit(true);
    t:=trunc(sqrt(x));
    For i:=2 to t do
      If (x mod i=0) then exit(false);
    Exit(true);
  End;

Begin
         Clrscr;
         Write('Nhap so nguyen n= '); readln(n);
         If nto(n) then writeln(n,' la so nguyen to')
           else writeln(n,' khong phai la so nguyen to');
         Readln;
End.
~Chúc anh(chị) học tốt~