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.

var n:longint;

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');

readln

end.