Cap 3 exercicio 5

Escreva um algoritmo que lê dois números inteiros e informa se o primeiro é múltiplo do segundo.

algoritmo " São múltiplos ou não múltiplos"var
  x,y:real
inicio
  escreval(" São múltiplos ou não múltiplos.")
  escreva(" Digite o primeiro número = ")
  leia(x)
  escreva(" Digite o segundo  número = ")
  leia(y)
  se ((x>y e ((x mod y)= 0)) entao
  escreva ("São múltiplos.")
  senao
  escreva("Não são múltiplos.")
  fimse
  fimalgoritmo