program legnagyobb_kozososzto;
var a,b:word;
function lnko(x,y:word):word;
begin
    while x<>y do
     if x>y then x:=x-y else y:=y-x;
    lnko:=x
end;
begin
     readln(a);
     readln(b);
     writeln('Az lnko: ',lnko(a,b));
     readln
end.