var i,n,k:longint;
function souoc(x:longint):longint; //chuong trinh con tinh so uoc cua so dua vao
   var s,j:longint;
   begin
      s:=0;
      for j:=1 to trunc(sqrt(x)) do
         if x mod j=0 then
         s:=s+2;
      if sqr(trunc(sqrt(x)))=x then
         s:=s-1;
      souoc:=s;
   end;
begin
   assign(input,'sodep.inp');
   reset(input);
   assign(output,'sodep.out');
   rewrite(output);
   readln(n);
   if (n mod souoc(n))=0 then
      writeln('Co')
   else
      writeln('Khong');
end.

*note: tất cả các biến longint trong bài đều có thể sửa thành integer nhé. tại quen tay nên ghi longint luôn thôi 😅 

mà nhân tiên cho hỏi, bài đây là từ đề nào vậy?

program so_dep;

uses crt;

var f,g:text;

      n:integer;

{---ham-kiem-tra---}

function ktsd(k:integer):boolean;

var i,d:integer;

 begin

        d:=0;

        for i:=1 to k do

                if k mod i=0 then d:=d+1;

        if k mod d=0 then ktsd:=true else ktsd:=false;

end;

{---Chuong-trinh-chinh---}

BEGIN

        Assign(f,'SODEP.INP');   reset(f);

        Assign(g,'SODEP.OUT');   rewrite(g);

        readln(f,n);

        if ktsd(n) then write(g,'Co') else write('Khong');

        close(f); close(g);

end.