integer::N,i integer,allocatable::A(:) read *,N allocate(A(N)) read *,A do i=MINVAL(A),1,-1 if(ALL(MOD(A,i).eq.0)) exit end do print '(i0)',100/i end