Program SNT; Uses crt; Var n: int64; Function ngto(a:longint):boolean; Var i: longint; Begin If a<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 ngto(n) then write(n,' la so nguyen to') Else Write(n,' khong phai so nguyen to'); Readln End.
function checkprime(x:longint):boolean; var i:longint; begin if x<2 then exit(false); for i:=2 to trunc(sqrt(x)) do if x mod i = 0 then exit(false) else exit(true); end;
begin
write('Nhap n: '); readln(n);
if checkprime(n) then write('La snt') else write('Khong phai snt');
