var m,n:integer;
begin
m:=18;
n:=81;
while m<>n do
begin
while m>n do
m:=m–n;
while n>m do
n:=n–m;
end;
writeln(m);
end.
输出：9