4 ) Elaborar um algoritmo que lê 2 valores a e b, os escrevem com a mensagem " são multiplos ou não "

algoritmo "Calcular multiplos"
var
 a, b,resto : inteiro
inicio
  escreval("calcular multiplos")
  escreva ("informe valor a")
  leia(a)
  escreva ("informe valor b")
  leia (b)
  se (a>b) entao
  resto <- a mod b
  senao
  resto <- b mod a
  fimse
  se (resto =0)entao
  escreva ("sao multiplos")
  senao
  escreva ("nao multiplos")
  fimse
     fimalgoritmo