Ex04. Elaborar um algoritmo que lê 2 valores a e b e os escreve com a mensagem: “São múltiplos” ou “Não são múltiplos”.

algoritmo “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