9.txt

pl0

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.