uses crt;
var a,b,g:integer; f:text;
function euclid(a:integer; b:integer):integer;
begin
    if b=0 then exit(a)
    else exit(euclid(b,a mod b));
end;
begin
    clrscr;
    assign(f,'in.inp');
    reset(f);
    read(f,a,b);
    close(f);
    g := euclid(a,b);
    assign(f,'out.out');
    rewrite(f);
    writeln(f,g);
    close(f);
end.

$\\$

`@Daoanhviet96`

const fi='input.inp';
      fo='output.oup';
var 
    a,b : longint ;
 function UC(m: longint;n:longint) : longint ;
     var i : longint ;
    begin
    m := abs(m);
    n := abs(n);
    while b <> 0 do
         begin
        i := a mod b ;
        a := b ;
        b := i ;
         end ;
        UC := a ;
    end ;
begin
assign(input,fi);assign(output,fo);
    reset(input);rewrite(output);
readln(input,a,b);
writeln(output,UC(a,b));
 close(input);close(output);
end .