! Programa que lê vários pares de dois números inteiros positivos e, para cada par de 
! números lidos, imprime o MDC - Máximo Divisor Comum entre eles. 
program minimo_divisor
	implicit none
    integer dividendo, divisor, resto, N, cont

    write (*, *) "Programa que le varios pares de dois numeros inteiros e, para cada par de" 
    write (*, *) "numeros lidos, imprime o MDC - Maximo Divisor Comum entre eles. O programa "
    write (*, *) "encerra quando pelo menos um dos numeros nao e positivo" 
    write (*, *) 
    write(*,*) "Informe o valor de N"
    read (*,*) N

    do cont = 1, N, 1
      write (*, *) " Digite dois numeros inteiros:"
      read  (*, *) dividendo, divisor
  
      resto = mod(dividendo, divisor)
      do while (resto /= 0)
        dividendo  = divisor
        divisor  = resto
        resto = mod(dividendo, divisor)      
      end do  
  
      write (*, *) "o MDC eh ", divisor;     
    end do
    
	stop
end program minimo_divisor