uses crt;
var a,b,s1,s2: longint;

f1 f2:text;
procedure U(n,s: integer)
var i:integer;
begin
i:=1;

s:=0;

while i<=n do
begin
if (n mod i)=0 then s:=s+i;
i:= i+1;
end;
end;
begin
assign(f1,'LANGGIENG.inp'); reset(f1);
read(f1,a,b); close(f1);
U(a,s1);
U(b,s2);
assign(f2,'LANGGIENG.OUT');
rewrite(f2);
if s1=s2 then Writeln(f2,'CO')
else writeln(f2,'KHONG');
close(f2);

readln;

end.

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 ^^.