Cap 3 -Exercício 3-5 Escreva um algoritmo que lê dois números inteiros e informa se o primeiro é múltiplo do segundo.

algoritmo "Verificar se 2 números são múltiplos"

var

x1, x2, resto: inteiro

inicio

escreval (" Verifique se os números são múltiplos ")

escreva ("Informe o valor de x1: ")

leia (x1)

escreval

escreva ("Informe o valor de x2: ")

leia (x2)

se (x1 > 0) entao

   resto <- (x1 mod x2)

senao

   resto <- (x2 mod x1)

fimse

   se (resto = 0) entao

   escreva ("Os números são múltiplos")

   senao

   escreva ("Os números não são múltiplos")

   fimse

fimalgoritmo