program kaito;
uses crt;
var n, i, d: integer;
begin
clrscr;
d:=0;
write('Nhap so nguyen N: '); readln(n);
for i:=1 to n do
begin
if (n mod i=0) then inc(d);
end;
if d=2 then writeln('Day khong phai so nguyen to Day la so nguyen to ')
else writeln(' Day khong phai so nguyen to ');
readln
end.