SÃO MULTIPLOS OU NÃO MULTIPLOS

Elabore um algoritmo que lê 2 valores a e b e os escreve com a mensagem: "São múltiplos" ou "Não múltiplos".
Resposta:

1.  algoritmo " São múltiplos ou não múltiplos"
2.  var
3.    a,b:real
4.  inicio
5.    escreval(" São múltiplos ou não múltiplos.")
6.    escreva(" Digite o valor de a ")
7.      leia(a)
8.    escreva(" Digite o valor de b ")
9.      leia(b)
10.  se ((a>b e ((a mod b)= 0)) entao
11.    escreva ("São múltiplos.")
12.  senao
13.    escreva("Não múltiplos.")
14.  fimse
15. fimalgoritmo