// Autor: Prof. Tiago Eugenio de Melo // Data: 22.04.2013 // Contato: tiagodemelo@gmail.com algoritmo "Testa primos entre si" var A, B, i: inteiro primo: logico inicio primo <- verdadeiro i <- 2 leia (A, B) enquanto (i <= B) faca se (B % i = 0) entao se (A % i = 0) entao primo <- falso fimse fimse i <- i + 1 fimenquanto se (primo = verdadeiro) entao escreval (A, " e ", B, " são primos entre si.") senao escreval (A, " e ", B, " não são primos entre si.") fimse fimalgoritmo