9.txt

来自「pl0」· 文本 代码 · 共 9 行

var i,j;             
begin 
  i := 85; j := 51;
  repeat
    if i > j then i := i-j else j := j-i
  until i = j ;
  write(i)
end.