L4 - 11 - 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 "multiplos"
Var
    a,b: inteiro
Inicio
    Leia(a,b)
    Se(a mod b = 0)entao
        Escreva("São multiplos!")
    Senao
        Se(b mod a = 0)entao
            Escreva("São multiplos!")
        Senao
            Escreva("Não são múltiplos!")
        Fimse
    Fimse
Fimalgoritmo