uses crt;

var n:longint;

{-------------------------}

function nt(x:longint):boolean;

var h:longint;

begin

if x<2 then exit(false);

for h:=2 to trunc(sqrt(x)) do if x mod h=0 then exit(false);

exit(true);

end;

{-------------------------}

begin

clrscr;

readln(n);

if (nt(n)) then write('Co') else write('Khong');

readln

end.

Program chuongtrinh;

Uses crt;

Var n , i :Integer;

Begin

          clrscr;

          Write(‘Nhap vao gia tri cua n:’);

          Readln(n);

          if n<=1 then writeln('n da cho khong la so nguyen to') else

          begin

                   i:=2;

                   while (n mod i<>0) do i:=i+1;

                   if i=n then writeln(' n da cho la so nguyen to'); else

                   writeln('n da cho khong la so nguyen to');

                   end;

         readln

end.