uses crt;
var n,i:longint;
    check:boolean;
begin
clrscr;
    readln(n);
    if(n = 1) then writeln('Khong phai so nguyen to')
    else if(n < 4) then writeln('La so nguyen to')
    else
        begin
            i:=2; check:=true;
            repeat
                if(n mod i = 0) then
                    begin
                        check:=false;
                    end;
                inc(i);
            until (i > trunc(sqrt(n)));
            if(check) then writeln('La so nguyen to')
            else writeln('Khong phai so nguyen to');
        end;
readln;
end.

program bai_giai;
uses crt;
var N,i:longint;
begin
    clrscr;
    repeat
        write('Nhap N: ');  readln(n);
    until n>0;
    if n=1 then
        begin
            write('N khong la so nguyen to');
            readln; exit;
        end;
    if n<4 then
        begin
            write('N la so nguyen to');
            readln; exit;
        end;
    for i:=2 to trunc(sqrt(n)) do
        if n mod i=0 then
            begin
                write('N khong la so nguyen to');
                readln; exit;
            end;
    write('N la so nguyen to');
    readln;
end.