Condicionais - Múltiplos ou não

algoritmo "Verificar se é multiplo"
var
   a,b,resto:real
inicio
   escreval("Informe o valor para 'a':")
   leia(a)
   
   escreval("Informe o valor para 'b':")
   leia(b)
   
   //Verificando quem é maior para decidir quem será o divisor ou dividendo
   se (a>0) entao
      resto<- b mod a
   senao
      resto<- a mod b
   fimse
   
   //Verificando se o resto é diferente de zero
   se (resto=0) entao
      escreva("São múltiplos")
   senao
      escreva("Não são múltiplos")
   fimse
fimalgoritmo