uses crt;
var a,b,a2,b2,i,j,r: integer;
      s,ss: longint;
begin
 clrscr;
  write ('nhap a: ');  readln (a);
  write ('nhap b: ');  readln (b);
  a2:=a;
  b2:=b;
  s:=0;
  for i:=1 to b do
   if (b mod i=0) and (a mod i=0) then s:=s+i;
  writeln ('tong cac uoc chung: ',s);
  while b<>0 do
   begin
    r:=a mod b;
    a:=b;
    b:=r;
   end;
  writeln ('ucln: ',a);
  write ('cac so hoan thien: ');
  for i:=a2 to b2 do
   begin
    ss:=0;
    for j:=1 to i-1 do
    if i mod j=0 then ss:=ss+j;
    if ss=i then write (ss:3);
   end;
 readln;
end.

program lop_9;

uses crt;
var a1,b1,a2,b2,i,j,m: integer;
      s1,s2: longint;
begin
 clrscr;
  write ('nhap a1: ');  readln (a1);
  write ('nhap b1: ');  readln (b1);
  a2:=a1;
  b2:=b1;
  s1:=0;
  for i:=1 to b do
   if (b mod i=0) and (a mod i=0) then s1:=s1+i;
  writeln ('tong cac uoc chung: ',s1);
  while b<>0 do begin
    m:=a mod b;
    a:=b;
    b:=m;
   end;
  writeln ('UCLN la: ',a);
  write ('cac so hoan thien: ');
  for i:=a2 to b2 do
   begin
    s2:=0;
    for j:=1 to i-1 do
    if i mod j=0 then ss:=s2+j;
    if s2=i then write (s2:3);
   end;
 readln
end.