program uoc_chung;

Uses crt;

Var

          M,n:integer;

Begin

          repeat

             write('Nhap M: '); readln(M);

             write('Nhap N: '); readln(N);

          Until (m<1000) and (n<1000);

          write('Uoc chung cua ',m,' va ',n,' la: ');

          For i:=1 to n do if (n mod i=0) and (m mod i=0) then write(i,' ');

          Readln;

End.

#HN

#Chuc_em_hoc_tot

uses crt;
var m,n,ans,i:word;

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

begin
clrscr;
    read(m,n);
    ans:=UCLN(m,n);
    for i:=1 to ans do
        if ans mod i = 0 then
            write(i,' ');
readln; readln; 
end.