program exp2;
var a,b,f: integer;
function gd(m,n:integer):integer;
begin
if n=0 then gd:=m
else gd:=gd(n,m mod n);
end;
begin
readln(a,b);
write('(',a,',',b,')=');
f:=gd(a,b);
writeln(f)
end.
输入：172 16
输出：(172,16)=4