3.5) Escreva um algorítmo que lê dois numeros inteiros e informe se o primeiro é múltiplo do segundo.

algoritmo "calcular 2 numeros multiplos"
var
  x1, x2, resto : inteiro
inicio
  escreval (" calcular multiplos")
  escreva ("informe o numero x 1")
  leia (x1)
  escreva (" informe o numero x 2")
  leia (x2)
  se (x1 >x2) entao
  resto <- x1 mod x2
  senao
  resto <- x2 mod x1
  fimse
  se ( resto = 0) entao
  escreva ("o primeiro eh multiplo")
  senao
   escreva ("o segundo eh multiplo")
  fimse
  fimalgoritmo