uses crt,math;
var a,b,bcnn,x,y,tmp,i:longint;
begin
clrscr;
readln(x,y);
a := x; b := y;
 while y > 0 do
 begin
   tmp := x mod y;
   x := y;
   y := tmp;
 end;
write('Uoc chung cua ',a,' va ',b,' la: ');
for i := 1 to min(a,b) do
 if (a mod i = 0) and (b mod i = 0) then write(i,' ');
 writeln;
bcnn := (a*b) div x;
writeln('Boi chung nho nhat cua ',a,' va ',b,' = ',bcnn);
readln;
end.

uses crt;
var x, y: longint;

function gcd(a, b: longint): longint;
var r: longint;
begin
    while b <> 0 do 
        begin
            r:=b;
            b:=a mod b;
            a:=r;
        end;
    exit(a);
end;

function lcm(a, b: longint): longint;
begin
    exit(a * b div gcd(a, b));
end;

procedure uc(a, b: longint);
var tmp, i: longint;
begin
    tmp:=gcd(a, b);
    for i:=1 to tmp do write(i, ' ');
end;

begin
clrscr;
    read(x, y);
    
    uc(x, y);
    writeln();
    writeln(lcm(x, y));
readln; readln;
end.