11 ºalgoritmo "verificar multiplos ou não"

algoritmo "verificar multiplos ou não"

var
a,b:inteiro
inicio
escreva (" valor A:")
leia (a)
escreva (" valor B:")
leia (b)
  se (a>b)entao
    se (a mod b = 0)entao
        escreva ("E multiplo")
    senao
        escreva ("Não multiplo")
    fimse
  senao
      se (b>a)entao
         se (b mod a = 0)entao
            escreva ("E multiplo")
         senao
            escreva ("Não multiplo")
         fimse
      fimse
  fimse


fimalgoritmo