Program SNT; Uses crt; Var n: longint; Function SNT(a:longint):boolean; Var i:longint; Begin If i<2 then exit(false); For i:=2 to a div 2 do If a mod i = 0 then exit(false); exit(true); End;
Begin Clrscr; Write('Nhap N: '); Readln(n); If SNT(n) then Write(n,' la so nguyen to') Else Write(n,' khong phai la so nguyen to'); Readln End.
