4_25

algoritmo "4_25"

      declare x, y, i, mdc: inteiro;
      escreva("Informe o valor do primeiro número: ");
      leia(x);
      escreva("Informe o valor do segundo número: ");
      leia(y);
      para (i<-1; i <= x; i++) faca
           se (resto(x, i)==0) E (resto(y, i)==0) entao
              mdc <- i;
           fimse
      fimpara
      se (mdc == 1) entao
         escreval("Primos entre si. ");
      fimse
fimalgoritmo