Pascal :

var     m,n,i,t:longint;
begin
  read(m,n);
  t:=1;
  for i:=2 to n div 2 do
    if (m mod i =0)and(n mod i=0)and(i>t)then t:=i;
  writeln(t);
end.