5) Escreva um algoritmo que lê dois números inteiros e informa se o primeiro é múltiplo do segundo.

algoritmo “Números Múltiplos”
var
a, b: inteiro
inicio
  escreva (“Digite o valor de a:”)
  leia (a)
  escreva (“Digite o valor de b:”)
  leia (b)
  se (a>b) entao
    se ((a mod b)=0) entao
      escreva (“São múltiplos”)
    senao
      escreva (“Não são múltiplos”)
    fimse
  senao
    se ((b mod a)=0) entao
      escreva (“São múltiplos”)
    senao
      escreva (“Não são múltiplos”)
    fimse
  fimse
fimalgoritmo