Elabore um algoritmo que lê 2 valores a e b e os escreve com a mensagem: "São múltiplos" ou "Não múltiplos".

algoritmo "São multiplo ou não"
var
  a,b:inteiro
inicio
   escreval("São multiplo ou não multiplo")
   escreva("Digite o valor de a ")
   leia(a)
   escreva("Digite o valor de b ")
   leia(b)
  se ((a>b) e ((a mod b)=0)) entao   escreva("São multiplo")
  senao
       se ((b mod a)=0) entao
         escreva("São multiplo")
       senao
         escreva("Não multiplo")
       fimse
  fimse
fimalgoritmo