program evklid;
var x,y,b,a: integer;
begin
writeln ('vvedit dva chisla');
readln (x,y);
while x<>y do
if x>y then x:=x-y
else
y:=y-x;
writeln (x);
readln
end.