Chương trình nhe:

Program LangGieng;

Uses crt;

Var a, b, s1, s2:integer; fi, fo:text;

Procedure uoc (n, s: integer)

Var i:integer;

begin

i:=1;

While i <= n do

begin

s:=0;

if (n mod i) = 0 then s:=s+i;

i:= i+1;

end;

end;

Begin

assign(fi,'LANGGIENG.inp'); reset(fi);

read(fi,a, b); close(fi);

uoc(a,s1);

uoc (b,s2);

assign(fo,'LANGGIENG.OUT');

rewrite(fo);

if s1 = s2 then Writeln(fo,'CO')

else

writeln(fo,'KHONG');

close(fo);

End.

Em chưa có chạy thử nhe ^^.

program lang_gieng;

var f,g:text;

      a,b:longint;

{---ham-tong---}

function tonguoc(k:longint):longint;

var t,i:longint;

begin

     t:=0;

     for i:=2 to k div 2 do

          if k mod i=0 then t:=t+i;

     tonguoc:=t;

end;

{---CT-chinh---}

BEGIN

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

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

     readln(f,a,b);

     if tuonguoc(a)=tonguoc(b) then write(g,'CO') else write(g,'KHONG');

     close(f);  close(g);

end.