uses crt;
var M, N, k, dem : integer;
begin
clrscr;
write('Nhap hai so M, N : '); readln(M, N);
if (M >= 0) and (N >= 0) then
begin
dem := 0;
if M >= N then
for k := 1 to N do
if (M mod k = 0) and (N mod k = 0) then dem := dem + 1;
if M <= N then
for k := 1 to M do
if (M mod k = 0) and (N mod k = 0) then dem := dem + 1;
end;
write('M va N co ', dem ,' uoc');
readln
end.